View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Far Far is offline
external usenet poster
 
Posts: 4
Default For Next & Hidden Sheets Issue

The following procedure creates an error if there is
hidden sheets in workbook. How can I have this procedure
ignore the hidden sheets? ... Thanks

Sub Set_Page_Preview_Normal()
Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Select
ActiveWindow.View = xlNormalView
Next wks
End Sub