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
|