Macro that will delete/hide rows based on a cell value

Hi

To keep this really simple I need a macro that will do the following.

If Sheet1!A1 =1 then hide the following rows Sheet2!123.

Thanks in advance.
Dan