Code to print all sheets named with a 4-digit code

[palaeontology]

I have a workbook with a very large number of sheets, some named with a word or a person's name, but many are named with a 4-digit number (eg: 3476, 6589, 2376, etc etc etc).

Is there a code that would print just Page 1 of all sheets that are named with a 4-digit number ?

Regards,

John

 

[MrTeeny]

Maybe try something like this, if your sheets can have 0001 etc just tweak the if statement to suit , i.e. checking it's numeric etc and less than 10000

Sub PrintNames()
 
    For I = 1 To Sheets.Count
      If Sheets(I).Name >= 1000 And Sheets(I).Name <= 9999 Then Sheets(I).PrintOut From:=1, To:=1
    Next I
End Sub

 

[JLGWhiz]

Or

Sub t()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
    If Len(sh.Name) = 4 And IsNumeric(sh.Name) Then
        sh.PrintOut 1, 1
    End If
Next
End Sub

 

[yky]

Or:

Sub test1()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

If ws.Name Like "####" Then
ws.PrintOut from:=1, to:=1
End If

Next ws

End Sub

 

[palaeontology]

Thankyou to all of you, each code worked brilliantly,

thankyou so much,

Regards,

John