Error on hide rows conditionally

[aliaslamy2k]

Dear All ,

I am using below VBA code to hide rows if criteria is met, but i am getting " Complie Error; Next without For "



Private Sub Worksheet_Change(ByVal Target As Range)
Dim c
For Each c In Range("B5:B10")
If c = "Jack" Or c = "Molly" Then _
Rows(c.Row).EntireRow.Hidden = True
Next
End Sub

 

[VoG]

That works OK for me. Perhaps make it more explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Range("B5:B10")
    If c.Value = "Jack" Or c.Value = "Molly" Then Rows(c.Row).EntireRow.Hidden = True
Next c
End Sub

 

[Peter_SSs]

You need an 'End If' just before the 'Next'

 

[aliaslamy2k]

Hi Vog,

Still I am not getting, when I enter criteria, it takes me back to VBA code and highlights " End Sub" in Yellow. I even tried entering End If Just before NEXT, but no result. Getting an error!

Note : I am using Excel 2007



Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Range("B5:B10")
If c.Value = "Jack" Or c.Value = "Molly" Then Rows(c.Row).EntireRow.Hidden = True
Next c
End Sub

 

[VoG]

Well, it works for me in Excel 2010.

Do you have any other code in that sheet's code module?

 

[aliaslamy2k]

Hi Vog,


Thanks alot, I got it ! Now it works for me.


Regards,
AB