Place Cursor in A1 on all Sheets Q
 

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

Place Cursor in A1 on all Sheets Q
 

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

Place Cursor in A1 on all Sheets Q
 

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


Gary


"Gary Keramidas" wrote in message
...
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

Place Cursor in A1 on all Sheets Q
 

On Aug 14, 8:14 am, "Gary Keramidas" <GKeramidasATmsn.com wrote:
sorry, had a typo, should be
Range("A1").Select
--

Gary

"Gary Keramidas" wrote in message

...



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
roups.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- Hide quoted text -

- Show quoted text -

Thanks Gary, works a treat