Option Explicit

Sub Test()
  
  Dim wks As Excel.Worksheet
  
  For Each wks In ThisWorkbook.Worksheets
    If wks.Name Like "order[#]#" _
    Or wks.Name Like "order[#]##" _
    Then
      Debug.Print "'"; wks.Name; "'", "selected"
    Else
      Debug.Print "'"; wks.Name; "'", "skipped"
    End If
  Next
  
End Sub

Oder etwas lascher:

Option Explicit

Sub Test()
  
  Dim wks As Excel.Worksheet
  
  For Each wks In ThisWorkbook.Worksheets
    If wks.Name Like "order[#]*" Then
      Debug.Print "'"; wks.Name; "'", "selected"
    Else
      Debug.Print "'"; wks.Name; "'", "skipped"
    End If
  Next
  
End Sub

Grüße