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

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

--
Kevin Backmann


"Steve" wrote:

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

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

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

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

Thanks Kevin
Works great!
Steve

"Kevin B" wrote:

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

--
Kevin Backmann


"Steve" wrote:

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

works just fine
Thanks
Steve

"Don Guillett" wrote:

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

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

Thanks to all. Code works great
Steve

"Earl Kiosterud" wrote:

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