Macro to run in all but one Worksheet

[deb0578]

Hello. I'm trying my best to write this simple code to run in all the worksheets but one. I've been searching on this forum for the answer, but can't get it correct as I keep getting error codes. Thanks for your help.


Dim Wksht As Worksheet
Dim cell As Range

For Each Wksht In ActiveWorkbook.Worksheets
If Wksht.Name <> "2012 Quarterly Summary" Then
For Each cell In Wksht.Range("B9:B50")
If (cell.Value = "" Or cell.Value = "ZZ") Then cell.EntireRow.Hidden = True
End If
Next cell
End If
Next Wksht
End Sub

 

[Jonmo1]

welcome to the board...

I think you have 1 too many End If's..

since This IF
If (cell.Value = "" Or cell.Value = "ZZ") Then cell.EntireRow.Hidden = True
Is all self contained (the action if True is written on the same line as the If Condition).
Then it does not require an End If

Try

Dim Wksht As Worksheet
Dim cell As Range

For Each Wksht In ActiveWorkbook.Worksheets
    If Wksht.Name <> "2012 Quarterly Summary" Then
        For Each cell In Wksht.Range("B9:B50")
            If (cell.Value = "" Or cell.Value = "ZZ") Then cell.EntireRow.Hidden = True
        Next cell
    End If
Next Wksht

 

[deb0578]

I made the change and it gives me a "Compiled Error: Expected End With."

Any suggestions? Thanks for your help!

 

[Jonmo1]

I would think you need to post the "changed" code...

 

[deb0578]

Oops! My bad ... I had several test programs running and was on the wrong one! It works great now. Thank you for all your help!