質問: j4 + 1 End With End If Next i
回答: いったい、どこからどこへ移動するハイパーリンクを作成したいのですか? その説明がないので、アドバイスしようがないです。 さらに、お示しのハイパーリンクのコード、構文自体メチャクチャ。 マクロ記録を録って、確認してください。 マクロ記録を基に、解説的なコーディングを書いてみると↓のような感じ。 Sheet2のA1へ移動するハイパーリンクを、Sheet1のA1に設定してます。 Sub sample() Dim sh As Worksheet, rngF As Range, xAdr As String, xTxt As String 'ハイパーリンクを設定するシート Set sh = Worksheets("Sheet1") 'ハイパーリンクを設定するセル Set rngF = sh.Range("A1") 'ハイパーリンクの移動先のアドレス xAdr = Worksheets("Sheet2").Range("A1").Address(External:=True) 'ハイパーリンクを設定するセルに表示する内容 xTxt = "Sheet2へ移動します" sh.Hyperlinks.Add Anchor:=rngF, Address:="", SubAddress:= _ xAdr, TextToDisplay:=xTxt End Sub