Hoe zit het met het hebben van een lijst met bladen die elk een hyperlink hebben naar hun respectieve bladnaam in de werkmap? Welnu, dit kan worden gedaan met de volgende code -
Sub CreateHyperlinkedSheetList()
Dim ws als werkblad
Application.ScreenUpdating = False
ActiveSheet.Range ("A:A"). Wis 'bestaande lijst wissen'
For Each ws In ActiveWorkbook.Worksheets
Met ActiveSheet.Range("A" & Rows.Count).End(xlUp)
.Offset(1).Waarde = ws.Naam
ActiveSheet.Hyperlinks.Anker toevoegen:=.Offset(1), Adres:="", Subadres:= _
"'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
Eindigt met
Volgende ws
Application.ScreenUpdating = True
Einde sub
Kopieer de bovenstaande code naar een standaardmodule en u kunt deze toewijzen aan een knop, om deze te activeren wanneer u maar wilt.