どこが間違っていますか

目次を作成するマクロです。

どこが間違っているか、ご指摘お願いします。

'左から2番目のシートから目次を作成
Dim i
For i = 2 To Worksheets.Count

Worksheets("目次").Range("a1").Value = "目次"

　　　　　　 Worksheets("目次").Hyperlinks.Add Anchor:=Range("a"&i), _
Address := "", _
subaddress:=Worksheets(i).name& "!A1", _
Text to display:=Worksheets(i).name

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2019/01/17 11:19

こんにちは。

半角スペースが混じっているとはいえ、決定的な間違いとは言えません。ただ、丁寧に、見栄え良く書くことでしょうね。それで、ずいぶん変わるものなのです。

　Dim i As Long
　Worksheets("目次").Range("A1").Value = "目次"
　For i = 2 To Worksheets.Count
　　Worksheets("目次").Hyperlinks.Add _
　　　Anchor:=Range("A" & i), _
　　　Address:="", _
　　　SubAddress:=Worksheets(i).Name & "!A1", _
　　　TextToDisplay:=Worksheets(i).Name
　Next i

この回答へのお礼

有難うございます。
丁寧に見栄え良く・・・ですね。

お礼日時：2019/01/18 10:24