Place Cursor in A1 on all Sheets Q

[Sean]

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

 

[Gary Keramidas]

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 Keramidas]

sorry, had a typo, should be
Range("A1").Select

 

[Sean]

sorry, had a typo, should be
Range("A1").Select
--

Gary







- Show quoted text -

Thanks Gary, works a treat