ExcelのVBAでサブアドレスとしてワークシート名を設定できませんか？ここで

Question

は私のコードです：

Dim wsVar As Worksheet 
For Each wsVar In ThisWorkbook.Sheets 
    With wsVar 
.Hyperlinks.Add Anchor:=.Range("G1"), _ 
Address:="", _ 
SubAddress:=Sheets("Table of Contents").Name & "!A1", _ 
TextToDisplay:="Table of Contents" 
    End With 
Next wsVar 

あり、それ以上の他のコードですが、それは私のすべての問題とは無関係です。サブアドレスの行を参照してください。 私は、このサブブックがこの同じブックの目次と呼ばれるワークシートを参照するようにするために、基本的にすべてを試しました。それは動作しません（なぜ私は "！A1"が必要なのかわかりませんが、他の場所から見ていますのでそこにあります）。 正常に動作しても、ハイパーリンクが作成されますが、そのハイパーリンクをクリックすると参照が無効となります。だから私はそれがこのコード行であることを知っています。

Answer 1

シート名にスペースとその他の特殊文字が含まれている場合は、一重引用符で囲む必要があります（例：SubAddress:="'Table of Contents'!A1"）。

（あるいはSubAddress:="'" & Sheets("Table of Contents").Name & "'!A1"が、それはあなたがSheetsコレクションのインデックスとして使用される名前を取得するためにSheetオブジェクトの.Nameプロパティを使用するように少し冗長です。）