VBA macro to search each sheet cell for specific text and print to PDF when true

Hi CG1990,

How about looping through all your worksheets with code something like this....

Sub LoopWorksheets()
    Dim shCnt As Double
    For shCnt = 1 To ActiveWorkbook.Sheets.Count
        Debug.Print "Worksheet now is", shCnt
        If Worksheets(shCnt).Cells(1, "E") = "NO" Then
            MsgBox "No is in E1"
        End If
    Next shCnt
End Sub

I'm not sure about printing to PDF but the above will reduce your code for the loop.