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