Excel Macro Link All Sheets

On a workbook save as macro enabled then add this macro.

Add first sheet as 0-HOME then run the macro.

 

Sub ListSheets()

Range("A1:A2000").Clear

For i = 1 To Sheets.Count
Range("A" & i) = "=HYPERLINK(""#'" + Sheets(i).Name + "'!A1"", """ + Sheets(i).Name + " "")"
Next i

Range("A1") = "0-HOME"
Columns("A:A").Sort key1:=Range("A1:A2000"), order1:=xlAscending, Header:=xlNo

End Sub