全シートの表示

Sub ShowSheet()
    Dim ws As Worksheet
    Dim count As Integer
    count = 0
    
    For Each ws In Worksheets
        If ws.Visible  xlSheetVisible Then
          ws.Visible = xlSheetVisible
          count = count + 1
        End If
    Next
    Worksheets(1).Select
End Sub

コメント