Görünen sayfaların adlarını listele

[Tevfik_Kursun]

Günaydın arkadaşlar,
Sadece kullanılan (görünen) sayfaların adlarını listeletmenin bir yolu var mıdır?
Saygılarımla

 

[askm]

Yabancı bir kaynakdan aldığım kodları revize ederek ektedir.

Sub NameSheetss()
'Updateby Extendoffice 20161216
    Dim x As Long, y As Long, z As Long
    Dim ws As Worksheet
    Dim shtCnt As Integer
    x = 1
    y = 1
    z = 1
    shtCnt = ThisWorkbook.Sheets.Count
    On Error Resume Next
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    For i = 1 To shtCnt

        If Sheets(i).Visible = xlSheetVisible Then
           Cells(y, 1) = Sheets(i).Name
            y = y + 1
        End If
        If Sheets(i).Visible = xlSheetVeryHidden Then
            Cells(z, 3) = Sheets(i).Name
            z = z + 1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[Tevfik_Kursun]

Sayın Askm Hocam,
İlginize çok teşekkür ederim.
Bu işimi gördü, öğrenmek için soruyorum. Bu işlem fonksiyonla yapılabilir mi?
Saygılarımla

 

[askm]

Sayın Tevfik_Kursun üstadım. Function olayını pek bilmiyorum malesef.

 

[Tevfik_Kursun]

Sayın Askm Hocam,
Zarar yok sayın hocam. Ekibimiz çok güçlü, nasılsa bir bilen arkadaşımız cevap verir. Tekrar ilginize teşekkür ederim.
Saygılarımla