Sayfa Adı, Hücreye Yazma Yardım

[sosorry]

iyi günler,
3 sayfalık bir çalışma kitabı var, isteğim herbir sayfa adının kendi bulunduğu sayfanın a1 hicresine yazmasını istiyorum. yapılabilir mi?

 

[Mahir64]

Merhaba,

http://www.excel.web.tr/f14/sayfa-ismini-yazdyrma-hk-t79942.html

 

[kan-nas]

For Each sayfa In ActiveWorkbook.Sheets
Sheets(sayfa.Name).Select
Range("a1") = ActiveSheet.Name
Next

bu da olabilir.