MS Office 2007 | Developer Menu | Macro Security | Enable All Macros | Now in Code Section of Ribbon click Macros and create a new VB Macro | Paste the Code below and save it as a new macro with name of your choice: 
*For Developer Manu to display enable button with top left corner Office button | Excel Options | Popular | Checkbox - show Developer Tab in the Ribbon

Sub ListSheets()

    'list of sheet names starting at A1

    Dim rng As Range

    Dim i As Integer

    Set rng = Range("A1")

    For Each Sheet In ActiveWorkbook.Sheets

    rng.Offset(i, 0).Value = Sheet.Name

    i = i + 1

    Next Sheet

End Sub

Credit Source: http://www.eggheadcafe.com/software/aspnet/28898686/how-to-list-all-sheets.aspx 

See also:
 http://www.techrepublic.com/blog/msoffice/add-a-macro-that-displays-the-excel-worksheet-navigation-list/4784