Форум по VBA и MS Office

В книге некоторым листам присвоены имена вида 01, 02, ... 31.
В книге также есть и другие листы, которые не надо обрабатывать.
Как с помощью макроса пройтись в активной книге по листам, у которых имя вида 01...31?

Sub Macro()
   
    Dim Sheet As Worksheet
   
   
    For Each Sheet In Worksheets
        If IsNumeric(Sheet.Name) Then
            If CLng(Sheet.Name) >= 1 And CLng(Sheet.Name) <= 31 Then
                ' Действие с листом.
            End If
        End If
    Next Sheet

End Sub

Спасибо.