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

    For シート番号 = 1 To Worksheets.Count 'Worksheets.Count＝シート数
        
        If Worksheets(シート番号).Visible = False Then '非表示の場合
            
            Worksheets(シート番号).Visible = True '表示する
            
        End If
        
    Next シート番号

End Sub