初めてマクロを入力しますが、テキストとおりに入力したのに構文エラーです。修正を教えてください。

テキストとおりに入力したのに構文エラーです。修正を教えてください。

Sub CreateLink()

Dim addRow As Integer
Dim wsName As String
Dim rngAddr As String
Dim supTxt As String


wsName = ActivSheet.Name
rngAddr = Selection.Address
supTxt = InputBox("リンクの補足を入力してください")

With Worksheets("リンク")

addRow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
.Hyperlinks.Add_
Anchor:=.Cells(addRow,"B"),_
Address:="",SubAddress:=wsName& "!" &rngAddr,_
　TextToDisplay:="●"
.Cells(addRow, "C").Value = supTxt
.Cells(addRow, "D").Value = wsName
.Cells(addRow, "E").Value = rngAddr



End With


End Sub

No.3 回答者： t_fumiaki 回答日時： 2022/10/28 12:27

ActivSheet.Name ⇒ ActiveSheet.Name : スペルミス

.Hyperlinks.Add_ ⇒ .Hyperlinks.Add _ ：Addの後に半角スペース入れる

wsName& "!" &rngAddr ⇒ wsName & "!" & rngAddr
&前後には半角スペースを入れる

No.2 回答者： fujillin 回答日時： 2022/10/28 11:58

こんにちは

＞テキストとおりに入力したのに構文エラーです。
エラーの可能性はいろいろあるので、どこでエラーが出ているのでしょうね。
エラーが出るなら、その部分の表示とエラーメッセージが出るはずですけれど・・
まずは、「テキスト通り」かどうかを疑ってみるのが、解決への近道かと思います。

ご提示のコードを、VBEの画面にコピペすると、構文エラーで赤く表示される部分があります。
それを修正しましょう。（スペースがあちこち抜けています）
その他にもスペルミスが1箇所あります。
上記を修正すると、一応、動作はするようにはなります。


また、今後のために、デバッグの方法を覚えておきましょう。
◇エクセルVBAでデバッグをする方法を解説します
https://www.excelspeedup.com/vbadebug/

No.1 回答者： くんこば 回答日時： 2022/10/28 11:47

一文ずつ、実行して行け。