Place Cursor in A1 on all Sheets Q

S

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
 
G

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Set Active Cell to A1 on Open Q 3
Macro Help 2
Processing code on wrong sheet 1
More help on setting print headers via code 15
Run two macros for two different sheets 11
More help with setting print area to last entry in columns A thru AA and last entry in row 7 4
Help with code setting print area 3
Changing code that set's print area...to active sheet only 4

Top