Hide rows based on cell in row

[ssinghal]

I want to hide rows from 7 to 22 only if the value in column M for that row is zero. First Unhide rows 7 - 22, then go and hide those with the o value. I appreciate anyones help. I think this is an easy one.

[mdmackillop]

Sub Hide722()
Dim cel as range
ActiveSheet.Rows("7:22").Hidden = False
For Each cel In Range("M7:M22")
If Len(cel) = 1 And cel = 0 Then cel.EntireRow.Hidden = True
Next
End Sub

[ssinghal]

Thanks for your help. You make me look like a genious in the office here.

[mdmackillop]

Take the praise and don't give the game away!