Solved: List worksheet names across columns

[Shazam]

Hi,



May I have this code below be modified to list the worksheets names across columns? Say starting in cell D1 through Z1.


[VBA]
Sub ListWorkSheets()
'Dumps a list of worksheet names in active cell and under
Dim N As Integer
For N = 1 To ActiveWorkbook.Worksheets.Count
ActiveCell(N, 1) = Worksheets(N).Name
Next
End Sub
[/VBA]

[lucas]

Something like this?
[VBA]Sub ListWorkSheets()
Dim N As Integer
For N = 1 To ActiveWorkbook.Worksheets.Count
Range("D1")(1, N) = Worksheets(N).Name
Next
End Sub[/VBA]

[Shazam]

Cool! Thank You Lucas!