Jeff

Sub ListSheets()
'list of sheet names starting at A1
 Dim rng As Range
 Dim i As Integer
     Set rng = Sheets("Sheet1").Range("A1")
        For Each Sheet In ActiveWorkbook.Sheets
     rng.Offset(i, 0).Value = Sheet.Name
     i = i + 1
 Next Sheet
End Sub

Gord Dibben  MS Excel MVP

No problem:

Sub allsheet()
Dim w As Worksheet
i = 1
For Each w In ActiveWorkbook.Worksheets
   Sheets("Sheet1").Cells(i, "A").Value = w.Name
   i = i + 1
Next
End Sub