One way:

Sub ListWSNames()
Dim sh As Worksheet
Dim i As Long

Application.ScreenUpdating = False

With ActiveWorkbook
.Worksheets(1).Select
Set sh = .Worksheets.Add
End With

With sh
For i = 2 To ActiveWorkbook.Worksheets.Count
.Cells(i, "A").Value = Worksheets(i).Name
Next i
.Cells(1, "A").Value = "Sheet Names (excl. this one)"
End With

Range("A:A").EntireColumn.AutoFit

Application.ScreenUpdating = True

End Sub

---
Press ALT+F11, Insert Module, and paste in the code
above. It creates a new worksheet and creates the list
there.

HTH
Jason
Atlanta, GA

-----Original Message-----

Hi all,

Is there a simple way to list the worksheet names into
cells?

Thank you.
JF
.