Hücredeki metni üstbilgi olarak yazdırma

[Believing]

Merhabalara Formdaş arkadaşlar,

Bir çalışma kitabındaki tüm sayfaların A1 hücresine formül ile sayfa ismini yazdırıyorum.
A1 hücresini üstbilgi olarak (Calibri, 18) nasıl otomatik hale getirebilirim?

Saygılarımla,

 

[Ömer]

Merhaba,

Sayfa isimlerini A1 hücresine yazdırmadan da yapabilirsiniz.
Kodları ThisWorkbook(BuÇalışmakitabı) kod sayfasına ekleyiniz. Dosya açıldığında tüm sayfa isimleri üst bilgi olarak eklenir.

Private Sub Workbook_Open()
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        syf.PageSetup.RightHeader = "&""Calibri,Bold""&18" & syf.Name
    Next
End Sub

 

[Believing]

Sayın Ömer Bey,
ALLAH sizden razı olsun.
Kolay gelsin.

Saygılarımla.