Sayfaların ısımlerını kendı a1 lerıne yazdırmak

[kneehot]

arkadaslar bugun cok soru sordum ama son bır ıstedım var.yaklasık 400 sayfalık bırseyle ugrastıgım ıcın yardım ıstıyorum.baslıktada yazdıgım gıbı tum sayfaların ısımlerı kendı a1 lerıne yazacak bır koda ıhtıyacım var.bıkmadan yardım eden herkese tesekkurler.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz..

Sub SayfaAdı()
 
Dim i As Integer
 
    For i = 1 To Worksheets.Count
        Sheets(i).Range("A1") = Sheets(i).Name
    Next i
 
End Sub

.

 

[kneehot]

Cok tesekkur ederım sayın ömer.