I like Claus' approach except for the If...Then. If you want the sheet
visible then just set that regardless of whether it's currently visible
or not. Testing ALWAYS requires more processing and so should be
avoided when not necessary so code performance is optimal...
With Sheets("Selection")
.Visible = xlSheetVisible: Application.GoTo .Range("A1")
End With 'Sheets("Selection")
--
Garry
Free usenet access at
http://www.eternal-september.org
Classic
VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion