Sorry 'bout that Skiff. I was working on multiple things last night and
forgot..... I normally do this, so here it is.

Sub VryHideShts()
'is macro is to very hide unwanted worksheets.
' HideSheet Macro

Dim sh As Worksheet
For Each sh In Worksheets
'sh.Select
If sh.Visible = 0 Then
sh.Visible = 2
'Else: MsgBox "No tabs to hide.", vbCritical, "Error"
End If
Next
End Sub