マクロが上手く組めない

質問

各シートの特定のセル(1,25)にINDEXシートのハイパーリンクを
設定したいのですが、「オブジェクトが存在しません」
とエラーが表示されてしまっており、どのように修正すればいいのか
分からず、困っております。何故エラーが出たのかについてご教授頂けると幸いです。

私の書いたソースコード
**********************************
**********************************
Sub INDEXLINK()

Dim w As Worksheet
Set w = Sheets("INDEX")
Dim i As Long

For i = 1 To ActiveWorkbook.Worksheets.Count

Worksheets(i).Hyperlinks.Add Anchor:=Worksheets(i).Cells(1,25), Address:="", SubAddress:=w & "!c1", TextToDisplay:=w.Name

Next

End Sub

回答No.2

MT765 · ベストアンサー

SubAddressは文字列(String)を使用します。

WorksheetはStringと同じ参照型なので
SubAddress:="w & !c1" に変更してもいけます。

お礼

あーありがとうございました。
やっと動いてくれました。

回答No.1

kkkkkm

wはシートオブジェクトなので

SubAddress:=w & "!c1"

を

SubAddress:=w.Name & "!c1"

にしてみてください。