I currently use the following code to print all worksheets named with a 5-digit name (eg: 34716)
For Each ws In ThisWorkbook.Worksheets If ws.Name Like "#####" Then
ws.Range("P22:U22").Font.Color = vbWhite
ws.Range("P22:U22").Interior.Color = vbWhite...