• Excel dosyasındaki sayfa adlarını A sütununda listelemek için kullanılabilecek kod:

Sub ExcelceSayfaListesi()
Rem Excelce.Net - Bülent Öztürk
For Each sayfa In ThisWorkbook.Worksheets
Range("A65536").End(xlUp).Offset(1, 0) = sayfa.Name
Next sayfa
End Sub



• Sayfalara köprü (link) oluşturmak için kullanılabilecek kod:

Sub ExcelceSayfaKoprule()
Rem Excelce.Net - Bülent Öztürk
For Each sayfa In ThisWorkbook.Worksheets
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sayfa.Name & "!A1", TextToDisplay:=sayfa.Name
Next sayfa
End Sub