Private Sub Worksheet_Activate()
Dim Wks As Worksheet
Application.ScreenUpdating = False
ActiveSheet.Range("A1").EntireColumn.ClearContents
ActiveSheet.Range("A1").Value = ActiveSheet.Name
For Each Wks In ThisWorkbook.Worksheets
If Application.CountIf(ActiveSheet.Range("A:A"), Wks.Name) = 0 Then
ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp)(2).Formula = "=HYPERLINK(""#'" & Wks.Name & "'!A1"",""" & Wks.Name & """)"
End If
Next Wks
Application.ScreenUpdating = True
End Sub