Sayfa adını hücreden almada sayısal verilerde sorun

[çıtır]

Aşağıdaki kodla Anasayfa C2 hücresinden aldığım adla yeni sayfa açıyorum.
Yeni sayfa adı birden fazla oluştuğunda C2 metinsel ifade olduğunda MsgBox uyarı vererek işlemi sonlandırıyor,sorun yok.
Ançak sayısal ifadelerde işlemi sonlandırmıyor.
Sorunum;
1)Nasıl bir kod yazmalıyım ki sayısal ifadelerde de birden fazla sayfa olduğunda mesaj versin ve exit sub çalışsın.

Yapaçağınız yardımlara şimdiden teşekkür ederim.

Sub SayfaAdi()
    Dim i As Integer
     Dim YeniSayfa As Variant
    If Worksheets("AnaSayfa").Range("C2").Value = "" Then Exit Sub
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = Worksheets("AnaSayfa").Range("C2").Value Then
            MsgBox "Bu isimde bir sayfa bulundu"
        Exit Sub
        End If
    Next i
  
  Worksheets.Add After:=Sheets(Worksheets.Count)
  ActiveSheet.Name = Worksheets("AnaSayfa").Range("C2").Value
  YeniSayfa = Worksheets("AnaSayfa").Range("C2").Value
 End Sub

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi dener misiniz? Malum sayfa adı rakamlardan oluşsa da METİN olarak işleme tabi tutuluyor.
.

If Worksheets(i).Name = Worksheets("AnaSayfa").Range("C2").Value [B][COLOR="Red"]& ""[/COLOR][/B]

 

[çıtır]

Merhaba.

Aşağıdaki gibi dener misiniz? Malum sayfa adı rakamlardan oluşsa da METİN olarak işleme tabi tutuluyor.
.

If Worksheets(i).Name = Worksheets("AnaSayfa").Range("C2").Value [B][COLOR="Red"]& ""[/COLOR][/B]

Sayın Ömer BARAN üstadım;
Çok çok teşekkür ederim.Yüreğine eline sağlık .Sorun çözüldü.