On Saturday, November 10, 2012 3:44:24 PM UTC-5, GS wrote:
The following statement is likely the culprit...
Application.GoTo .Range("A1")
If you just want the sheet visible and A1 the active cell then try...
With Sheets("Selection")
.Visible = xlSheetVisible: .Cells(1).Activate
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
After trying I still get the flashing gray bar