Excel - Print Out Hidden Worksheets

This macro prints out hidden worksheets of a workbook.

Excel

4693
1827
0
0

Add to collection

1 Open MS Excel.

2 Create a blank workbook.

3 Go to Developer's tab > click on "Visual Basic" button or hit Alt + F11.

4 Go to Insert tab > click on "Module" or hit M.

5 Copy the VBA code from below.

6 Paste the code in the newly created module.

7 Go to Run tab > click on "Run Sub/UserForm" or hit F5.

8 That's it!

Code

'==========================================
' Print Out Hidden Worksheets
'==========================================
Sub printOutHiddenWorksheets()
    ' Set variables
    Dim ws As Worksheet
    ' Loop thru worksheets
    For Each ws In ThisWorkbook.Worksheets
        ' Use worksheet
        With ws
            ' Check if worksheet is visible
            If .Visible = xlSheetHidden Or _
                .Visible = xlSheetVeryHidden Then
                ' Set worksheet to be visible and print it
                If .Visible = xlSheetHidden Then
                    .Visible = xlSheetVisible
                    .PrintPreview
                    .Visible = xlSheetHidden
                End If
                ' Set worksheet to be visible and print it
                If .Visible = xlSheetVeryHidden Then
                    .Visible = xlSheetVisible
                    .PrintPreview
                    .Visible = xlSheetVeryHidden
                End If
            End If
        End With
    Next
End Sub