Cannot switch between Userform to Excel Workbook

[johnske]

Hi Killian,

thanku 4 replying. I m using office xp. ShowModal property is already set to false. I cannot write any routines which will select the ranges to pass the data bcoz ranges always keep changing...

any other solution plz... awaiting.

Hi iltaskazi,

It doesn't matter if the ranges keep changing... Paste this into your userform module, select a cell with something written in it and show your userform. Now select another cell and left-click inside the text-box on the userform...etc.

Option Explicit

Private Sub UserForm_Activate()
TextBox1 = Selection
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1 = Selection
End Sub

Regards,
John