【ExcelVBA】エクセルで全てのシートのシート名を一覧に表示してハイパーリンクを設定するマクロ

どうも、あおです。

エクセルでシートを複数つくった際、目的のシートどこだったっけ？

と、パッと見つけれないことがあります。

それを解消するマクロの紹介

イメージとして、シートを挿入し、そのシートに自分以外の全シート名を

一覧表示させて、ハイパーリンクを設定し、クリックするとそのシートに

飛ぶといった内容になります。

（officeのバージョンは、古いですが2003を使用。

バージョンによっては、コードを書く画面の表示方法等が

異なるかもしれないので、ネットで調べてください）

１．一覧表示用のシートを挿入

↓

Sheet1が追加されます

２．Alt＋F11を押して、コードを記入する画面を起動

その後、ツールバー「挿入」→「標準モジュール」をクリック

３．標準モジュール画面にコードを貼り付け

【コード】

Sub MAINLIST()
Dim i As Integer, r As Range
With Worksheets(1)
.Hyperlinks.Delete
.Range(“A1:A65536”).ClearContents
For i = 2 To Worksheets.Count
Set r = .Cells(i, 1)
r.Value = Worksheets(i).Name
.Hyperlinks.Add Anchor:=r, Address:=””, _
SubAddress:=Worksheets(i).Name & “!A1”
Next i
End With
End Sub