View Single Post
 
Old 03-28-2013, 03:58 PM
gmaxey gmaxey is offline Windows 7 32bit Office 2010 (Version 14.0)
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,431
gmaxey is a jewel in the roughgmaxey is a jewel in the roughgmaxey is a jewel in the roughgmaxey is a jewel in the rough
Default

Use a modeless form:
Sub CallForm
Userform1.Show vbModeless
End Sub


and place the following code in the form activate event:

Private Sub UserForm_Activate()
Selection.Range.Select
Application.Activate
End Sub
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote