sayfa isimlerini yazdırmak

[gkhnkrgc]

Aşağıda linkini verdiğim dosyada listelenmiş sayfa isimlerini almak istiyorum yardımcı olabilir misiniz?

http://s9.dosya.tc/server2/r5zpin/_2012__2013__2014__2015__2016__ID_39487_.xlsx.html

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayın ve boş bir sayfa üzerinde iken çalıştırın.

Sub SayfaListele()

    Dim Syf As Worksheet, _
        i   As Integer
    
    For Each Syf In Worksheets
        i = i + 1
        Cells(i, "A") = Syf.Name
    Next Syf
    
End Sub