List of Tab Names

[gheyman]

How do I get this to but the list starting in A3?

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
    Sheets(3).Cells(i, 1) = Sheets(i).Name
Next i

End Sub

 

[Fluff]

How about

Sheets(3).Cells(i+2, 1) = Sheets(i).Name

 

[Joe4]

The structure of Cells is Cells(row, column).
So change:

Sheets(3).Cells(i, 1) = Sheets(i).Name

to

Sheets(3).Cells([COLOR=#ff0000]i+2[/COLOR], 1) = Sheets(i).Name

Note that the column reference can be numeric or the letter. So you could also do:

Sheets(3).Cells([COLOR=#FF0000]i+2[/COLOR], [COLOR=#ff0000]"A"[/COLOR]) = Sheets(i).Name

 

[gheyman]

Thanks!!

 

[Fluff]

Glad we could help

 

[gheyman]

What if I wanted to list certain ones (Or not list certain ones - which may be easier). Is there a way to check for a value in a cell in each tab before it lists it?

 

[Fluff]

Something like this

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
   If Sheets(i).Range("A1") = "Fluff" Then Sheets(3).Cells(i+2, 1) = Sheets(i).name
Next i

End Sub

 

[gheyman]

Thanks, Fluff. Worked perfectly

 

[Fluff]

Glad to help