Hide two rows at a time!!!

[vishwakarma]

Hi,

Can anyone please help me in modifying the below code :-

Sub HideRows()
Dim cell As Range
For Each cell In Range("A1:A100")
If cell.Value = 1 Then
cell.EntireRow.Hidden = True
Else
cell.EntireRow.Hidden = False
End If
Next
End Sub

I want the macro to check for the value in column A ,if the value is 1 then I want that row along with the below one to be hidden.


I have attached the sheet for the reference....



Thanks,

[p45cal]

Sub HideRows()
Dim cll As Range
Range("A1:A100").EntireRow.Hidden = False
For Each cll In Range("A1:A100")
If cll.Value = 1 Then cll.Resize(2).EntireRow.Hidden = True
Next
End Sub

[vishwakarma]

Thanks....