sadece rakam ile ifade edilen sayfa isimlerini göstersin

[ayemenici]

herkese iyi akşamlar
aşağıda verdiğim kod ile user form üzerinde bulunan combobox' a çalışma kitabının sayfa isimlerini getiriyorum ancak ben sadece rakam ile isimlendirdiğim sayfaların görünmesi istiyorum olabilirmi? yardımlarınız için şimdiden teşekkürler


Dim ws As Worksheet
For Each ws In Worksheets
Me.combobox1.AddItem ws.Name

 

[Orion1]

Dim ws As Worksheet
For Each ws In Worksheets
    If IsNumeric(ws.Name) Then
        Me.ComboBox1.AddItem ws.Name
    End If

 

[ayemenici]

evren arkadaş teşekkür ederim
bir konu daha var aslında farklı konu açacaktım fakat burdan göndereyim cevap vermezseniz yeni konu açayım ekteki dosyada farklı sayfalarda bulunan farklı değişken tablolara veri girişi ile ilgili yardımcı olursanız sevinirim.