Try this:

Sub WorkSheetNames()
Dim sht As Worksheet
Dim mySht As Worksheet
Set mySht = Sheets("Sheet1")
Dim r As Integer
Dim c As Integer
r = 1
c = 1
For Each sht In Worksheets
mySht.Cells(r, c) = sht.Name
r = r + 1
Next sht
End Sub











"Jahsonn" wrote in message ...
Hi Guys....

Is there an easy way to list all sheet names from a
workbook in a sheet on the workbook?

TIA