[![画像の説明をここに入力][1]][1]--- execelのマクロ
[1]: https://i.sstatic.net/5Y6RG.png
Dim ws, ws01 As Worksheet
Dim ws_Name As String
Dim I, L As Long
Set ws01 = Worksheets("MENU")
I = 0
L = 1 '10行目よりワークシート「近畿地方」にハイパーリンク設定を行う
For Each ws In Worksheets 'ワークシート全て繰り返します。
If ws.Name <> ws01.Name Then 'ワークシート近畿地方以外のワークシート名に対してハイパーリンク先の設定を行います。
'ws01.Hyperlinks.Add Anchor:=ws01.Cells(L, "M"), Address:="", SubAddress:=ws.Name & "!A2", TextToDisplay:="L"
ws01.Hyperlinks.Add Anchor:=ws01.Cells(L, "M"), Address:="", SubAddress:=ws.Name & "!A1", TextToDisplay:=ws.Name
'ワークシート毎に、パイパーリンク先を指定します。
L = L + 1 'ハイパーリンク設定後、一行加算する。
End If
Next ws
Private Sub Workbook_Open()
Dim i
For i = 1 To Worksheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("M" & i), _
Address:="", _
SubAddress:=Worksheets(i).Name & "!A1", _
TextToDisplay:=Worksheets(i).Name
Next
End Sub