Automatically hiding Sheets based on Sheet name

[kelsonbaird]

So, I think that I see what the issue is but coming up blank with a work around. I THINK the issue is that I am trying to hide the sheet that I am on before moving to the next, but not sure how to make it work.

Basically, I want to automatically hide sheets that start with the word "Vacant" or start with "Aug" and keep any other sheet visible. here's what I have tried. It keeps getting caught up on the second to last line ("wsCurrent.Visible = False"):


Sub Sheet_hide()

Dim wsCurrent As Worksheet

For Each wsCurrent In ActiveWorkbook.Worksheets

If Left(wsCurrent.Name, 6) = "Vacant" Then
GoTo Hide
Else
GoTo Continue
End If

Continue:
If Left(wsCurrent.Name, 3) = "Aug" Then
GoTo Hide
Else
GoTo Skip
End If


Skip:
wsCurrent.Visible = True

Hide:
wsCurrent.Visible = False

Next wsCurrent

End Sub

 

[aRandomHelper]

Try this instead:

Sub Sheet_hide()
    Dim wsCurrent As Worksheet
    
    For Each wsCurrent In ActiveWorkbook.Worksheets
        If wsCurrent.Name Like "Vacant*" Or wsCurrent.Name Like "Aug*" Then
            wsCurrent.Visible = False
        Else
            wsCurrent.Visible = True
        End If
    Next wsCurrent
End Sub

 

[kelsonbaird]

thanks that worked, here is what I ended up using:

Sub sheet_hide()

Dim wsCurrent As Worksheet

For Each wsCurrent In ActiveWorkbook.Worksheets

If wsCurrent.Visible = xlSheetHidden Then
GoTo Skip
Else
GoTo Continue
End If


Continue:
If wsCurrent.Name Like "Vacant*" Or wsCurrent.Name Like "Aug*" Then
wsCurrent.Visible = False
Else
wsCurrent.Visible = True
End If
Skip:
Next wsCurrent

End Sub