
表の再表示がめんどくさい、という話を社員さんが密やかにされていたので、まくろってみました。
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】ワークシートを移動する
を参考にさせていただきました。ありがとうございます~