vba output to rows not colums

[justme1122]

Hi guys

I have this code that lists the titles of all worksheets. Any idea's on how to make it out put to a row unstead of a colum.

Sub C_BuildIndex_Click()
Dim i As Long
Sheets("data").Select
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 3 To Worksheets.Count
    Application.StatusBar = Format(100 * i / Worksheets.Count, "0.0") & "% done..."
        Range("A" & i + 0) = Sheets(i).Name
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.StatusBar = False
  End Sub

Thanks for your time
Scott

 

[VoG]

Try this: output in row 1

Sub C_BuildIndex_Click()
Dim i As Long
Sheets("data").Select
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 3 To Worksheets.Count
    Application.StatusBar = Format(100 * i / Worksheets.Count, "0.0") & "% done..."
        Cells(1, i - 2).Value = Sheets(i).Name
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.StatusBar = False
  End Sub

 

[justme1122]

how can something so simple be so hard to find

thanks so much

works great.