you can try something like this


Sub test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select False
End If
Next
Range("Q1").Select
Worksheets(1).Select
End Sub

--


Gary

"Sean" wrote in message
oups.com...
I have the code below which moves the cursor to A1 on all Sheets.
Problem is that I have a number of Hidden sheets which I do not want
the Cursor to move to A1, how can I do this i.e. ignore any hidden
sheets?

Thanks


Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim sh As Object
Dim Sh1 As Object
Set Sh1 = ActiveSheet
For Each sh In ActiveWorkbooks.Worksheets
sh.Activate
Range("A1").Select
Next
Sh1.Activate
End Sub