Skjul rækker automatisk

Hej Alle

Jeg har indsat følgende kode i VBA:

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A24") = 1 Then

Rows("25:81").EntireRow.Hidden = False
Else
Rows("25:81").EntireRow.Hidden = True

End If

End Sub

Dette gør så, at rækkerne 25:81 skjules når A24 = 1 - Mit problem er, at jeg i A24 har en formel som skriver 1 eller 0 alt afhængig af om rækkerne skal vises eller skjules.

Men ovenstående fungere ikke når der er tale om en formel - hvordan ændrer jeg dette?

Mvh. Brian