Get visible sheet names only

[Mr.Karr]

Hello,

Can anyone please provide code snippet to extract/get visible sheet names only. Below code snippet I use to list worksheet names in column A.

Sub SheetNames()
    'Columns(1).Insert
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next i
End Sub

Many thanks in advance!

 

[Deepak]

Option Explicit

Sub SheetNames1()
Dim i As Integer, ii As Integer: ii = 1
    'Columns(1).Insert
    Cells(1, 1).CurrentRegion.Cells.Clear
     For i = 1 To Sheets.Count
        If Sheets(i).Visible = -1 Then
            Cells(ii, 1) = Sheets(i).Name
            ii = ii + 1
        End If
    Next
End Sub

 

[Mr.Karr]

thanks @Deepak