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