Quick and dirty is thus:

Sub select_tabs_to_print()
Count = ActiveWorkbook.Sheets.Count
For nowsheet = 1 To Count
If Sheets(nowsheet).Cells(1, 1) = "PRINT" Then
'print out the worksheet
Else
'dont print out the worksheet
End If
Next nowsheet

End Sub