ハイパーリンクを行ごとに設定したい

Question

前提・実現したいこと

For～Next構文で記述した文字列のあるセルにハイパーリンクをつけたいので
文字列の入力の後、ハイパーリンクをつける処理をしているのですが、
Nextに対応するForがありません、というエラーが発生して動きません。

ハイパーリンクの処理がないときは正常に動いていましたが、それでもエラーメッセージとの繋がりがわかりません。
連日申し訳ないのですが、詳しい方お願いします。

発生している問題・エラーメッセージ

Nextに対応するForがありません。

該当のソースコード

    Dim i As Long, j As Long, k As Long, r As Long
    Dim c As String

    r = 3
    For i = 1 To 2
        c = Chr(i + 67)
        For j = 2 To 3
            For k = 1 To 4
            
                Dim s As String
                s = "A" & c & "-" & j & "-" & k
                Range("D" & r).Value = s
                With ActiveSheet.Hyperlinks.Add(Anchor:=Range("D" & r), Address:="C:\data\リスト\ & s & .xlsm", TextToDisplay:=" & s & ")
                r = r + 1
                
            Next k
        Next j
    Next i

Answer 1

ここの

With ActiveSheet.Hyperlinks.Add(Anchor:=Range("D" & r), Address:="C:\data\リスト\ & s & .xlsm", TextToDisplay:=" & s & ")

Withと（）をはずしましょう

ActiveSheet.Hyperlinks.Add Anchor:=Range("D" & r), Address:="C:\data\リスト\ & s & .xlsm", TextToDisplay:=" & s & "