SHEET NAME List

[mole999]

I have a simple lister to put information onto a page

    Dim I 
    For I = 3 To Sheets.Count
        Cells(I, 24) = Sheets(I).Name
    Next I

I've tried eliminating a number of sheet names, that are usually hidden

Master and Data Page and Times

anyone point me into how I can exclude those from being added

 

[RSpin]

I think this might work for you:

Dim I As Integer
For I = 3 To Sheets.Count
    If Sheets(I).Visible = True Then
        Cells(I, 24) = Sheets(I).Name
    End If
Next I

 

[MARK858]

I didn't like the use of usually in "that are usually hidden" so because of that maybe another option is...

Sub list_sheets_except()
    Dim ShtName, x As Long, i As Long, j As Long, count As Long
    ShtName = Array("Master", "Data Page", "Times")  'ADD SHEET NAMES HERE NOT TO LIST
    x = 3
    For i = 3 To Worksheets.count
        For j = LBound(ShtName) To UBound(ShtName)
            If Worksheets(i).Name = ShtName(j) Then count = 1
        Next j
        If count = 0 Then
            Cells(x, 24).Value = Worksheets(i).Name
            x = x + 1
        End If
        count = 0
    Next i
End Sub

 

[My Aswer Is This]

Try this:

Sub Sheet_Names()
'Modified 1/26/2019 7:55:55 AM  EST
Application.ScreenUpdating = False
Dim i As Long
For i = 1 To Sheets.Count
    If Sheets(i).Visible <> False Then Cells(i, 24).Value = Sheets(i).Name
Next
Application.ScreenUpdating = True
End Sub