Sheet isimlerini sayfaya alma?

[udentr2002]

Merhaba arkadaşlar;

Dosyam içindeki sayfa isimlerinin hepsini bir stüna nasıl aldırabilrim?

 

[Ömer]

Merhaba,

Bu şekilde alabilirsiniz..

Sub SayfaAdı()
Dim i As Integer, sat As Integer
    sat = 1
    For i = 1 To Worksheets.Count
        Cells(sat, "A") = Sheets(i).Name
        sat = sat + 1
    Next i
End Sub

.

 

[udentr2002]

Çok teşekkürler hocam