Excel sayfa isimlerini kodlarla listeleme, Köprü Oluşturma

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'==========================================
' Sayfa isimlerini mesaj kutusunda gösterir
'==========================================

    Dim isayfasayisi As Integer
    Dim isayfa As Integer
        isayfasayisi = ActiveWorkbook.Worksheets.Count
        For isayfa = 1 To isayfasayisi
        Worksheets(isayfa).Activate
    MsgBox Worksheets(isayfa).Name
    Next isayfa
End Sub

'==========================================
'Microsoft Visual  Basic Makro Kodu:
'Excel Çalışma Kitabındaki Sayfa İsimlerini A Sütununda Listeleme ve Köprü Oluşturma:
'==========================================

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