Cycle through non-hidden pages only

S

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
 
K

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
 
D

Don Guillett

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

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
 
S

Steve

Thanks Kevin
Works great!
Steve

Kevin B said:
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
Click to expand...
 
S

Steve

Thanks to all. Code works great
Steve

Earl Kiosterud said:
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
Click to expand...
 
Top