B
Bre-x
Hi,
is there a way to get Worksheet Names and enter that information on a
column?
Bre-x
is there a way to get Worksheet Names and enter that information on a
column?
Bre-x
B
Bre-x
Sub Macro1()
Dim i As Long
Dim sh As Worksheet
i = 2
For Each sh In ActiveWorkbook.Sheets
Range("A" & i) = sh.Name
i = i + 1
Next
End Sub
Dim i As Long
Dim sh As Worksheet
i = 2
For Each sh In ActiveWorkbook.Sheets
Range("A" & i) = sh.Name
i = i + 1
Next
End Sub