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

:P


"Bre-x" wrote in message
...
Hi,

is there a way to get Worksheet Names and enter that information on a
column?

Bre-x