VBA ハイパーリンク 参照できない

Question

前提・実現したいこと

変数を使った、ハイパーリンクのコードを作成すると
マクロ自体は成功しますが、出来上がったハイパーリンクをクリックすると
「参照できません」というメッセージが表示されます。
上手くリンク付けができていないようです。

該当のソースコード

    Dim namae As String
    namae = frmNamae.TextBox1.Text 'テキストBOXに入れた文字を変数とする

    Sheets("原本").Copy After:=Worksheets(Worksheets.Count)
    Sheets("原本 (2)").Select
    Sheets("原本 (2)").Name = namae　'テキストBOXに入れた名前のシートを作成する
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
    Sheets("目次").Select
    Dim range1 As Range
    Dim range2 As Range
    Set range1 = Range("B13").End(xlDown)
    Set range2 = range1.Offset(1, 0)　
    range2.Select
    range2.Value = namae
'↑B13以降の値が入った最終行の１行下を選択して、テキストBOXに入力した文字を入れる
        
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
    SubAddress:="Sheets(namae)!A1"
'range2で入れた値のハイパーリンクを作成する。参照元は初めに作成したシートのA1

試したこと

AnchorやSubAddressを色々変えてみて試しましたが、結果はどれも同じでした。
変数をリンク付けすることは可能でしょうか？？
ご教授お願い致します。

Answer 1

SubAddress:= namae & "!A1"

でどうですか？

Comments

[GytaAmies]

回答ありがとうございます。
やはり、「参照がただしくありません」と表示されます( ﾉД`)

[jinoji]

Anchor:=range2, SubAddress:= namae & "!A1"
というのは？

[GytaAmies]

ActiveSheet.Hyperlinks.Add Anchor:=range2, Address:="", _
SubAddress:= namae & "!A1"
これもやはり同じです。

[jinoji]

イミディエイトウィンドウで
?ActiveSheet.Hyperlinks(1).SubAddress
と打ったらどう返ってきますか？

[GytaAmies]

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="'" & namae& "'!A1"
これでいけました！
どうやらシングルクオーテーションで囲わないといけなかったらしいです。。。

[jinoji]

なるほど、もしかして半角スペースが入ったシート名でしたか？

[GytaAmies]

スペースは無く、全角ひらがなのシートでしたね。
テキストボックスからの引用なので、それの影響はあったかもしれないです。