I have a simple macro for listing all the worksheets in a workbook,
essentially creating a table of contents for my file:

Sub ListSheets()
For iSheets = 1 To Sheets.Count
ActiveCell.Value = Sheets(iSheets).Name
ActiveCell.Offset(1, 0).Activate
Next iSheets
End Sub

What I would like to do is make each of those cells a hyperlink to the
corresponding worksheet, to cell A1. Any ideas?

Thanks,
Steve Mackay