Sub qwerty()
Dim s As Worksheet
For Each s In Worksheets
If s.Visible = False Then
s.Visible = True
s.Activate
Else
End If
Next
End Sub

--
Gary''s Student - gsnu200839