Sayfa adını arayıp hücreye yazdırma

[excellkurdu]

Arkadaşlar pek çok konu olmasına rağmen küçük bir ayrıntıda takıldım.
Makro ile A1 hücresinde yazan sayfa ismini arayıp Varsa; C1 hücresine yazdırmak istiyorum.
Örnek dosyayı göndermedim kafa karışıklığı olmasın diye.
Şimdiden teşekkür ederim.

 

[Necdet]

Merhaba.

Aşağıdaki Kodları İlgili sayfanın Kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    If SayfaVarYok([A1]) = True Then
        [C1] = [A1]
    Else
        [C1] = [A1] & " Sayfası Yoktirrrr..."
    End If
    
End Sub

Function SayfaVarYok(SayfaAdı As String) As Boolean

    On Error Resume Next
    SayfaVarYok = CBool(Len(Worksheets(SayfaAdı).Name) > 0)
    
End Function