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
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