Hi
Try this

Sub CreateListOfSheetsOnFirstSheet()
Dim i%, ws As Worksheet
For i = 1 To Worksheets.Count
With Worksheets(1)
Set ws = Worksheets(i)
.Cells(i, 1).Value = ws.Name & "(" & ws.CodeName & ")"
End With
Next i
End Sub


"QuietMan" wrote:

Does anyone know how to get the sheet number as well as the sheet name to be
displayed in one excel worksheet

example: sheet37(foothill)
would like to be able to shoow this for all 37 sheet in one worksheet
--
Helping Is always a good thing