エクセル マクロ

質問

シートが目次、１～９まであり
全部で1３枚構成になってるエクセルのファイルがあります
目次以外非表示でしています

目次→１→４→７→１０
目次→２→５→８→１１
目次→３→６→９→１２
目次から次々へ飛ぶボタンを作成しました
例えば　1→１０まで行ったときシートの表示は１、４、７，１０が残ります
10→７などに移ったときは非表示にするボタンを作成しています

各シートに目次に一気に戻るボタンを作成したのですが
目次に戻る際、目次以外の開いたシートを全部非表示に戻したいのですが
どうしたらいいでしょうか？

Sub 目次()
ActiveSheet.Visible = False
Worksheets("目次").Activate
End Sub

今現在のプログラムです

回答No.1

ushi2015 · ベストアンサー

こんにちは
Sub 目次()
　 Dim s As Worksheet
　 ThisWorkbook.Worksheets("目次").Activate
　 For Each s In ThisWorkbook.Worksheets
　 　 If s.Name <> "目次" Then
　 　 　 s.Visible = xlSheetHidden
　 　 End If
　 Next
End Sub
で、十分かと思います。

お礼

ありがとうございます
出来ました