32回では、シートの1枚目にシート名一覧のリストを作成しました。

このマクロのコードは、

Sub シート一覧マクロ()
    Dim i As Long
    For i = 2 To Sheets.Count
    Range("A" & i).Value = Worksheets(i).Name
    Next i
End Sub

実行すると、A2からシート名をシートの分作成します。

シート名のリストがすでにあるので、リストがなくなるまという条件で、ハイパーリンクを追加するというコードにします。

Do...Loopステートメントは、４通りありますが、使うのは、

Do　Until 条件式
　　繰り返し実行する処理
　　[Exit Do]
Loop

の方です。
条件式は、リストが空になるつまり、Do Until Range("A" & i).Value = ""まで
ハイパーリンクを追加しなさい。
コードは、次のようになります。

Sub シート名一覧ハイパーリンク()
    Dim i As Long
    i = 2
    Do Until Range("A" & i).Value = ""
        Worksheets(i - 1).Hyperlinks.Add _
            Anchor:=Range("A" & i) _
            , Address:=ThisWorkbook.FullName _
            , SubAddress:=Range("A" & i).Value & "!A1"
        i = i + 1
    Loop
End Sub

ハイパーリンクを追加するには、Hyperlinks.Add メソッドを使います。

AnchorとAddressは、必須ですが、他の３つの引数は省略可能です。

実行すると、各シートへのハイパーリンクが追加されます。

ちなみにこのシートのハイパーリンクを削除するマクロは、

Sub ハイパーリンク削除()
    Worksheets("このシート").Hyperlinks.Delete
End Sub

となります。

今日の講義は以上です。お疲れ様でした。