エクセルってシートがたくさんになってしまうことしばしばですね。 そういう場合には、目次を作ってクリックして目的のシートに移動できたら便利です。 結構良く使うマクロなのでメモ。 Sub 目次作成マクロ() Sheets("目次").Select Dim wsheet As Worksheet Dim i As Integer i = 5 For Each wsheet In ThisWorkbook.Worksheets If wsheet.Name <> "目次" Then Sheets("目次").Cells(i, 3).Select Sheets("目次").Cells(i, 3).Value = wsheet.Name ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'" & wsheet.Name & "'" & "!A1", TextToDisplay:=wsheet.Name i = i + 1 End If Next wsheet End Sub
