ActiveSheet.Hyperlinks.Add で実行時エラーになる。

Question

前提・実現したいこと

エクセルの各シートに飛ぶ目次を作成しようとしています。
しかし、ActiveSheet.Hyperlinks.Addがうまく解決できません。

発生している問題・エラーメッセージ

実行時エラー '1004':
アプリケーション定義またはオブジェクト定義のエラーです。

該当のソースコード

Const rowStart As Long = 5
Const clmSheetName As Long = 2
Dim rowIns As Long
rowIns = rowStart

For Each sheet In ThisWorkbook.Worksheets
　Dim c1 As Range
　Set c1 = ActiveSheet.Cells(rowIns, clmSheetName)
　Dim subadd As String
　subadd = sheet.Name + "!A1"
　ActiveSheet.Hyperlinks.Add _
            Anchor:=c1, Address:="", SubAddress:=subadd

　rowIns = rowIns + 1
Next

試したこと

Anchorの値を以下を使用したりしましたがダメでした。

Set c1 = ActiveSheet.Cells(rowIns, clmSheetName)
Set c2 = ActiveSheet.Cells(rowIns, clmSheetName)
Dim range1 As Range
Set range1 = ActiveSheet.Range(c1, c2)
ActiveSheet.Hyperlinks.Add _
            Anchor:=range1 , Address:="", SubAddress:=subadd

補足情報（FW/ツールのバージョンなど）

EXCEL 2016

###追記

• 実行時エラー発生時に参照しようとするシート名は解析パラメータファイルです。
• ブックを新規作成して同じことをすると、実行時エラーは発生しませんでした。

Comments

[退会済みユーザー]

同じくExcel2016の環境で新規ブックに提示されたコードでテストしましたが再現できませんでした。実際に存在するシート名で特殊記号を使っているものなどはありませんか？何という名前のシートでエラーが出るか教えて下さい。また新規ブックでもエラーが出るかご確認ください。ついでにそのエラーは「実行時エラー」です。「コンパイルエラー」ではありませんよ。

[shikasama]

全角日本語しか使用しておりません。エラー発生時のシートは解析パラメータファイルです。新規ブックではエラーは発生しませんでした。タイトルは誤記でした。修正いたしました。

Answer 1

自己解決いたしました。
ハイパーリンク記述先のシートに"シートの保護"がかかってしまっていました。
"シートの保護"を無効にすることで、無事ハイパーリンクの作成に成功いたしました。

Answer 2

ちょっと直したので、こちらを試して下さい。

1.ActiveSheetのブックをThisWorkbookと明示しました。

2.シート名はシングルクォーテーションで囲うようにしました。
例えば「1-1」のようなシート名は、提示されたコードではリンクが動作しません。

3.作成前にセルをClearContentsするようにしました。
途中でシートの増減があると表示上の文字列が変わらない不具合があることをデバッグ中に発見したので。

Sub ハイパーリンク作成()
    Const rowStart As Long = 5
    Const clmSheetName As Long = 2
    
    Dim rowIns As Long
    Dim Sheet As Worksheet
    Dim c1 As Range
    Dim subadd As String
    
    rowIns = rowStart
    
    For Each Sheet In ThisWorkbook.Worksheets
        Set c1 = ThisWorkbook.ActiveSheet.Cells(rowIns, clmSheetName)
        subadd = "'" & Sheet.Name + "'!A1"
        c1.ClearContents
        ThisWorkbook.ActiveSheet.Hyperlinks.Add Anchor:=c1, Address:="", SubAddress:=subadd
        rowIns = rowIns + 1
    Next
End Sub

Comments

[shikasama]

ご提示していただいたように修正して試してみましたが、変わらずHyperlinks.Addで"実行時エラーアプリケーション定義またはオブジェクト定義のエラーです。"が発生します。2日前まで動いていたコードで、新規ブックだと動作するので、もしかしたらファイル自体を破損してしまったのかなとも思い始めました。