Igaz, megkaptad a jó választ, azért írok egy másikat.

A laphoz kell rendelned a makrót. A lapra lépéskor figyeli, hogy az A1 cellában van-e adat. Ha nincs, másodpercenként változtatja a háttér színét. Mindenképp jobbnak tartom horvimi változatát.

Private Sub Timer()
    If Range("A1") <> "" Then
        Range("A1").Interior.ColorIndex = -4142
        Exit Sub
    End If
    
    With Range("A1")
        If .Interior.Color = vbYellow Then
           .Interior.Color = vbRed
        Else
           .Interior.Color = vbYellow
        End If
        Application.Wait Now() + TimeValue("00:00:01")
        DoEvents
        Timer
    End With
End Sub

Private Sub Worksheet_Activate()
    Timer
End Sub