Çalışma kitabında her biri kendi sayfa adına köprülenmiş bir sayfa listesine sahip olmaya ne dersiniz? Peki, bu aşağıdaki kodla yapılabilir -
Alt CreateHyperlinkedSheetList()
Dim ws As Çalışma Sayfası
Application.ScreenUpdating = Yanlış
ActiveSheet.Range("A:A").Clear 'mevcut listeyi temizle
ActiveWorkbook.Worksheets'te Her ws için
ActiveSheet.Range("A" & Rows.Count).End(xlUp) ile
.Offset(1).Value = ws.Name
ActiveSheet.Hyperlinks.Add Anchor:=.Offset(1), Address:="", SubAddress:= _
"'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
İle bitmek
Sonraki ws
Application.ScreenUpdating = Doğru
Alt Bitiş
Yukarıdaki kodu standart bir modüle kopyalayın ve istediğiniz zaman tetiklemek için bir düğmeye atayabilirsiniz.