Thread: Print all tabs where cell "D2" is > ""

Code:

Option Explicit

Sub Print_Sheets()

    Dim ws As Worksheet
    
    On Error Resume Next
    For Each ws In ThisWorkbook.Worksheets
            If Range("D2") <> "" Then ws.PrintOut
    Next ws

End Sub

Code:

Sub aaa()
    For Each ws In ThisWorkbook.Worksheets
        If ws.Range("D2").Value <> "" Then
            ws.PrintOut Copies:=1, Collate:=True
        End If
    Next ws
End Sub

Edit:
Must learn to use refresh button