Do you know how to print to PDF?
Sub Select_With_Print()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
With ws
If WorksheetFunction.CountIf(.Range("T:U"), "print") <> 0 Then ws.Select False
End With
Next ws
End Sub
This should save the sheets as individual pdf files in the folder that houses your excel workbook.
Sub Or_Maybe()
Dim i As Long, ws As Worksheet
For i = 1 To ActiveWorkbook.Worksheets.Count
With Sheets(i)
If WorksheetFunction.CountIf(.Range("T:U"), "print") <> 0 Then Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Sheets(i).Name, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
End With
Next i
End Sub