Sayfa isminin otomatik yenilenmesi

[Erdal]

Merhabalar
Aşağıdaki kod ile sayfa ismini buluyorum. Ama sayfayı kopyaladığımda veya sayfa ismini değiştirdiğimde yeni sayfa ismini otomatik yenilemiyor. Otomatik olarak sayfa ismini yenilemesi için kodu nasıl revize etmeliyiz?
Saygı ve selam ile ...

Function syf()

syf = ActiveSheet.Name

End Function

 

[Haluk]

Function syf()
    Application.Volatile
    syf = ActiveSheet.Name
End Function

.

 

[Erdal]

Haluk Bey ilginiz için teşekkür ederim. Verdiğiniz kodu çalıştıramadım. Daha doğrusu kod, sayfa ismini değiştirdiğimde çalışıyor ama sayfayı kopyaladığımda çalışmıyor. Yani mevcut sayfayı taşı ve kopyala dediğimde yeni oluşan sayfanın ismi otomatik gelmiyor. (İllaki herhangi bir hücreye girip enter ile hücreden çıkınca yeni sayfa ismi geliyor.) Cahilliğimi bağışlayın belkide ben yapamadım. Saygı ve selam ile ...

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Function syf(Adres As Range)
    Application.Volatile True
    syf = Adres.Parent.Name
End Function

Aşağıdaki gibi kullanın.

=syf(A1)

 

[Erdal]

Aşağıdaki gibi deneyiniz.

Function syf(Adres As Range)
    Application.Volatile True
    syf = Adres.Parent.Name
End Function

Aşağıdaki gibi kullanın.

=syf(A1)

Teşekkür ederim Korhan Bey. Tam istediğim gibi olmuş.
Hakkınızı helal edin.