A macro to list the sheets on a new worksheet.
Private Sub ListSheets()
'list of sheet names starting at A1
Dim Sh As Worksheet
Dim Rng As Range
Dim i As Integer
Worksheets.Add
Set Rng = Range("A1")
For Each Sh In ActiveWorkbook.Sheets
Rng.Offset(i, 0).Value = Sh.Name
i = i + 1
Next Sh
End Sub
Gord Dibben Excel MVP