you don't say where you want to list them, this will display them in the
immediate window
in the vb editor, do a control-G. if you want them in a specific place, post
back

Sub list_names()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
Debug.Print ws.Name
Next
End Sub

try this
for i=1 to worksheets.count
cells(i,"a").value=sheets(i).name
next i

This is something I use to generate a Table of Contents sheet in a workbook,
which includes a hyperlink to each sheet:

Sub TableOfContents()

Dim ws As Worksheet, wsTOC As Worksheet
Dim r As Long

   Application.ScreenUpdating = False

   For Each ws In ActiveWorkbook.Sheets

       If ws.Name = "Table of Contents" Then
           Application.DisplayAlerts = False
           ws.Delete
           Application.DisplayAlerts = True
       End If

   Next ws

   Set wsTOC =
ActiveWorkbook.Worksheets.Add(Before:=ActiveWorkbook.Sheets(1))
   wsTOC.Name = "Table of Contents"
   wsTOC.Range("A1") = "Table of Contents"
   wsTOC.Range("A1").Font.Size = 18
   r = 3

   For Each ws In ActiveWorkbook.Worksheets

       If ws.Name <> wsTOC.Name Then
           wsTOC.Hyperlinks.Add _
           Anchor:=wsTOC.Cells(r, 1), _
           Address:="", _
           SubAddress:="'" & ws.Name & "'!A1", _
               TextToDisplay:=ws.Name, ScreenTip:="Link to " & ws.Name
           wsTOC.Cells(r, 1).Value = ws.Name
           r = r + 1
       End If

   Next ws

   Columns("A:A").EntireColumn.AutoFit
   Cells.Font.Name = "Times New Roman"
   Range("A1").Select
   Application.CommandBars("Web").Visible = True
   Application.ScreenUpdating = True

End Sub