Trying to hide a row based on cell value within that row

[basmal8]

I want to hide rows based on the value of a cell in that row.
If Cell Y506 is zero, then I want row 506 hidden. If the value in the cell is greater than zero, keep it unhidden.
I then want to repeat this is for an entire range of cells (if cellXY=0, hide entire row, if cellXY>0, unhide row.)

Also- I want to be able to use this code as a macro that I can use a button to activate. I do not want any rows to be hidden until the macro is activated/button is pressed.

Very new to VBA, so all help is appreciated.

Can anyone help?

Thanks!

[majosum]

I'm writing this on a Mac so I can't test it, but does this work?

Public Sub test()

Dim i As Integer
i = 0
NumRows = Range("XY1", Range("XY1").End(xldown)).Rows.Count
Range("XY1").Select

Do Until i = NumRows
If ActiveCell.Value = 0 Then
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
ActiveCell.Offset(1,0).Select
i + 1
Loop
End Sub