Option Explicit



Sub PrintSheets()

Dim Sh As Worksheet

Dim Chk As Integer



'// Need to 1st select the sheet With "PRINT" in it!

If UCase(ActiveSheet.[A1].Text) <> "PRINT" Then

    Do Until UCase(ActiveSheet.[A1].Text) = "PRINT"

        Chk = Chk + 1

        If Chk = Sheets.Count Then GoTo NoPrint

        ActiveSheet.Next.Activate

    Loop

End If



MsgBox Chk

'// Now lets Group select the sheets with "PRINT"

For Each Sh In ActiveWorkbook.Sheets

    If UCase(Sh.[A1].Text) = "PRINT" Then

        Sh.Select False

    End If

Next



'// OK now Print them!

ActiveWindow.SelectedSheets.PrintOut Copies:=1



Exit Sub

NoPrint:

MsgBox "No sheets to print!"



End Sub