Cycle through non-hidden pages only

[Steve]

I have a workbook with several hidden pages. I'm trying to write some vb code
that will cycle though the Visible pages and ignore those that are hidden.
Any help would be greatly appreciated.
Thanks Steve

 

[Kevin B]

The following code will not run, but hopefully it will point you in the
proper direction. Using the IF statement to determine whether or not
something happens to a particular worksheet in the current workbook:

Sub VisibleOnly()

Dim wb As Workbook
Dim ws As Worksheet

Set wb = ThisWorkbook

For Each ws In wb.Worksheets
If ws.Visible Then
Do something here
End If
Next ws

Set ws = Nothing
Set wb = Nothing

End Sub

 

[Don Guillett]

Sub doifnothiddensheet()
For Each ws In Worksheets
If ws.Visible = True Then 'do this
Next ws
End Sub

 

[Earl Kiosterud]

Steve,

Try this:

Sub CycleSheets()
Dim sheett As Worksheet
For Each sheett In Sheets()
If sheett.Visible Then

' your code here

End If
Next sheett
End Sub

 

[Steve]

Thanks Kevin
Works great!
Steve

The following code will not run, but hopefully it will point you in the
proper direction. Using the IF statement to determine whether or not
something happens to a particular worksheet in the current workbook:

Sub VisibleOnly()

Dim wb As Workbook
Dim ws As Worksheet

Set wb = ThisWorkbook

For Each ws In wb.Worksheets
If ws.Visible Then
Do something here
End If
Next ws

Set ws = Nothing
Set wb = Nothing

End Sub

 

[Steve]

works just fine
Thanks
Steve

Sub doifnothiddensheet()
For Each ws In Worksheets
If ws.Visible = True Then 'do this
Next ws
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)

 

[Steve]

Thanks to all. Code works great
Steve

Steve,

Try this:

Sub CycleSheets()
Dim sheett As Worksheet
For Each sheett In Sheets()
If sheett.Visible Then

' your code here

End If
Next sheett
End Sub

--
Regards from Virginia Beach,

Earl Kiosterud
www.smokeylake.com