Problems with IF and DO WHILE LOOP

Hi there,

please bear with me, i'm a novice

My Problem:

I need a Macro that can unhide and hide a row depending on the input of a cell.

The Macro has to start automatically if you open the document.

It has to loop nonstop

If in My Example the Cell P7 = 1 the macro should unhide row 10
If the Cell P7 = 0 the macro should hide row 10

Here You can See My Try on the Problem
It sadly doesn't work


Sub Auto_Open()

Call Row

End Sub

Sub Row()

Do While I3 = 1


If P5 = 1 Then

Call Row_unhide

Else

Call Row_hide

Exit Do


End If

Loop

End Sub

Sub Row_unhide()

Rows("9:11").Select
Selection.EntireRow.Hidden = False

End Sub

Sub Row_hide()

Rows("10").Select
Selection.EntireRow.Hidden = True

End Sub



Hope you guys can help me :D
-Ymgarl

It has to loop nonstop

Why do you think it has to do this?

Because i use this macro in a snake and ladder game and if i am in a special area around 50 i have to unhide a row. in this row there are a few buttons which can only be used if u are in this area