ExcelVBA　シートの再表示

表の再表示がめんどくさい、という話を社員さんが密やかにされていたので、マクロってみました。

Sub 非表示のシートを再表示する()

    Dim ws As Worksheet
    
    For Each ws In Worksheets
        If ws.Visible = False Then                          'シートが非表示ならば
            ws.Visible = True                               '表示する
            ws.Tab.ThemeColor = xlThemeColorLight1          '非表示だったシート名のタブを黒くする
            ws.Move After:=Worksheets(Worksheets.Count)     '非表示だったシートを一番右端にする
        End If
    Next

End Sub

一番右にするのは、
【VBA】ワークシートを移動する
を参考にさせていただきました。ありがとうございます～

記事は以上です。
ご覧いただきありがとうございました。