Hi Bobby,

Am Sat, 10 Nov 2012 09:31:55 -0800 (PST) schrieb Bobby:

Application.ScreenUpdating = False

If Sheets("Selection").Visible = False Then Sheets("Selection").Visible = True
Sheets("Selection").Select

try:
With Sheets("Selection")
If .Visible = False Then .Visible = True
Application.Goto .Range("A1")
End With


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2