excel - ハイパーリンクを機能させるにはどうすればよいですか? (エクセル、VBA)

Question

Excel のハイパーリンクに問題があります。あるシートから別のシートへのハイパーリンクを設定しようとしていますが、ソース セルとターゲット セルはループ内で毎回変更する必要があります。基本的に、GROUP 1 のあるセルから GROUP 2 の別のセルにデータを移動し、GROUP 2 から GROUP 1 の同じセルにハイパーリンクを設定します。200 個の値があるので、これをループで実行します。サブアドレスの何が問題なのかわかりません!!

これは以下の私のコードです.....

助けてくれてありがとう。

Sub Transfer_and link()
Dim i As Integer
Dim LastRow1, As Long

LastRow1 = Sheets("GROUP 1").Cells(Rows.Count, "A").End(xlUp).Row

a = 14
For i = 5 To LastRow1 Step 2
Sheets("GROUP 2").Cells(a, 2) = Sheets("GROUP 1").Cells(i, 1)
Sheets("GROUP 2").Cells(a, 3) = Sheets("GROUP 1").Cells(i, 9)
Sheets("GROUP 2").Cells(a, 4) = Sheets("GROUP 1").Cells(i, 10)

Sheets("GROUP 1").Activate
Cells(i, 1).Select
Worksheets(2).Hyperlinks.Add Anchor:=Worksheets(2).Cells(a, 2), Address:="", _
SubAddress:=ActiveCell.Address

a = a + 1
Next i