Pull all tab names to cells in a row

[kevinb11]

I would like to pull all the tabs in a worksheet to cells in a certain row. Thanks!!

 

[Fluff]

Maybe

Sub kevinb11()
   Dim i As Long
   
   For i = 1 To Sheets.Count
      Sheets("List").Cells(125, i) = Sheets(i).Name
   Next i
End Sub

 

[tyija1995]

Sounds almost like an Index tab, this code puts all of the tab names into a row of your choice (edit the code for desired row):

Sub IndexColumns()
Dim i As Integer
Dim yourRow As Integer
yourRow = 1
    For i = 1 To ActiveWorkbook.Sheets.Count
        Cells(yourRow, i).Value = Worksheets(i).Name
    Next i
End Sub