I have a macro to hide rows depending on value but it won't loop through each row????

Sub macro()
If[A1].Value=1 Then
Range("c4:g4").EntireRow.Hidden=True
End if
If[A1].Value=>1 Then
Range("c4:g4").EntireRow.Hidden=False
End if
End Sub

I can't get this macro to loop through rows. It seems it will only pick one row and hide that depending on value, it won't go onto another row. Any suggestions??? Or am I going about it wrong?? Any help would be appreciated!!! Thanks.