Error 13 Type Mismatch - VBA suddenly stopped working

[John Sadler]

Hi folks ... the code below was working but suddenly stopped with Error 13 Type Mismatch where 'If ws.Range("U1") = "Active" And ws.Range("U2") = "Outbound" Then' was highlighted as the problem. If I remove 'And ws.Range("U2") = "Outbound" ' it will show all sheets where U1 = Active.

So was working but not now

Sub HideOutboundSheets()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Range("U1") = "Active" And ws.Range("U2") = "Outbound" Then
ws.Visible = False
End If
Next ws
Application.ScreenUpdating = True
End Sub

 

[Michael M]

Maybe this

Sub HideOutboundSheets()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In Worksheets
    With ws
        If .Range("U1") = "Active" And .Range("U2") = "Outbound" Then
            .Visible = False
        End If
End With
Next ws
Application.ScreenUpdating = True
End Sub

 

[John Sadler]

Thanks Michael but same error. Can't figure out why it would stop working.

 

[Michael M]

Do you have one of the sheets protected ???

 

[John Sadler]

Hi Michael ... no protected sheets but your suggestion got me looking at the cell values and I found 2 old sheets where the cell values seemed to be causing the error.
So .. all good now.
Thanks for making me look harder at the sheets.
Cheers John

 

[Michael M]

Haha.....always seems to happen when playing with multiple sheets.....you get focused on Sheet1 and the others get overlooked...