エクセル97でシートが多数有りますその目次を簡単に作成したい

質問

違った様式名のシート数が約100ほど有ります
各様式名の目次を作成して、目次からハイパーリンクを設定したいのですが、作成するのに大変な労力が必要になります
何か簡単に目次だけでもいいのですが作成できる方法がありますか

回答No.2

nishi6

＞違った様式名のシート数が約100ほど有ります
これから、1Bookの中に約100シートがあると解釈しました。複数のBookなら別の書き方になります。

＞何か簡単に目次だけでもいいのですが・・・

実際、何から何を作って、どのようにリンクさせればいいかわかりませんが、
（１）シート名『目次』を挿入
（２）約100枚のシートの仮番号を『目次』に書き出す
（３）その右に約100枚のシートのシート名を書き出す
（４）シート名を書いたセルは、そのシート名のセルA1にLINKさせる
の機能のマクロを書いてみました。約100シートがあるBookにマクロを追加します。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。
そのコードウインドウに下記マクロをコピーして貼り付けます。
シートに戻り、安全のために別名で保存します。（保存はLINKの算式を完全に機能させる意味もあります）
ツール→マクロ→マクロ で『Mokuji』を実行します。

シート『目次』に、シート名の一覧が表示されるはずです。
質問から想像できた『できること』はこれくらいでした。ご参考に。

ここから
↓
Sub Mokuji()
　　Dim fullpath As String 'フルパス
　　　　fullpath = ThisWorkbook.FullName

　　Dim ws As Worksheet 'ワークシート
　　Dim 目次有無 As Boolean '目次シートの有無
　　　　For Each ws In Worksheets
　　　　　　If ws.Name = "目次" Then '目次シートの有無を調べる
　　　　　　　　目次有無 = True
　　　　　　End If
　　　　Next
　　　　　　If 目次有無 = False Then 'なければ目次シートを挿入する
　　　　　　　　Worksheets.Add.Move before:=Worksheets(1)
　　　　　　　　ActiveSheet.Name = "目次"
　　　　　　End If

　　Dim rw As Integer '行カウンタ
　　Worksheets("目次").Activate
　　Worksheets("目次").Cells.ClearContents
　　With Range("B2")
　　　　'各シート名を目次シートに書き出していく（セルB2を基点とした）
　　　　For Each ws In Worksheets
　　　　　　If ws.Name <> "目次" Then
　　　　　　　　rw = rw + 1
　　　　　　　　'シートの通番を書く
　　　　　　　　.Offset(rw, 0) = rw
　　　　　　　　'各シートのA1にLINKさせた
　　　　　　　　.Offset(rw, 1) = "=HYPERLINK(""[" & fullpath & "]" & ws.Name & "!A1"",""" & ws.Name & """)"
　　　　　　End If
　　　　Next
　　End With
End Sub

補足

いつも大変お世話になっています
>ツール→マクロ→マクロ で『Mokuji』を実行します。
を「ＯＫ」すると
コンバイルエラー
構文エラー
が出て、下記カ所が選択状態になり「ＯＫ」をクリックすると
そのカ所が赤字になってしまいました
ws.Name & "!A1"",""" & ws.Name & """)"

すみませんがもう少し教えてください
よろしくお願いします