ExcelVBA : 全シート、ハイパーリンク目次作成

数十枚のシートをブックにして、そのドキュメントを読め、、、とかいうサドがいる。

対策マクロだ。

ついでに、Excelのクイックメニューかリボンに「戻る(web)」ボタンを追加しとけし。
ハイパーリンク先から一瞬で戻れる。

AWKのつぼ

Sub 目次作成() Dim n As Integer On Error GoTo erx Worksheets.Add before:=Sheets(1) Worksheets(1).Name = "目次" Worksheets(1).Activate For n = 2 To Worksheets.Count Worksheets(n).Name = Replace(Worksheets(n).Name, "(", "〈", , , vbTextCompare) Worksheets(n).Name = Replace(Worksheets(n).Name, ")", "〉", , , vbTextCompare) Worksheets(n).Name = Replace(Worksheets(n).Name, " ", "_", , , vbTextCompare) ActiveSheet.Hyperlinks.Add Anchor:=Worksheets(1).Cells(n + 1, 2), Address:="", SubAddress:= _ Worksheets(n).Name & "!A1", TextToDisplay:=Worksheets(n).Name Next End erx: If Err = 1004 Then Application.DisplayAlerts = False Worksheets(1).Delete Application.DisplayAlerts = True Worksheets("目次").Move before:=Sheets(1) Resume Next End If End Sub