One way:
Sub PrintHiddenWS()
Dim ws As Worksheet
Dim i As Long
Application.ScreenUpdating = False
i = 0
For Each ws In ThisWorkbook.Worksheets
With ws
If .Visible = False Then
i = i + 1
.Visible = True
.PrintOut copies:=1, collate:=True
.Visible = False
End If
End With
Next
Application.ScreenUpdating = True
If i = 0 Then
MsgBox "No hidden sheets found!"
End If
End Sub
---
HTH
Jason
Atlanta, GA
>-----Original Message-----
>
>.
>
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks