PDA

View Full Version : Solved: List worksheet names across columns



Shazam
02-14-2007, 07:09 AM
Hi,



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



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

lucas
02-14-2007, 07:25 AM
Something like this?
Sub ListWorkSheets()
Dim N As Integer
For N = 1 To ActiveWorkbook.Worksheets.Count
Range("D1")(1, N) = Worksheets(N).Name
Next
End Sub

Shazam
02-14-2007, 07:46 AM
Cool! Thank You Lucas!