Guru do Excel e Power BI

Public Executar As Double
'Adicione esse código em um Módulo
Sub IniciarPiscagem()
    If Range("A1").Interior.ColorIndex = 3 Then
        Range("A1").Interior.ColorIndex = 6
    Else
        Range("A1").Interior.ColorIndex = 3
    End If
    Executar = Now + TimeSerial(0, 0, 1)
    Application.OnTime Executar, "IniciarPiscagem", , True
End Sub

Sub PararPiscagem()
    Range("A1").Interior.ColorIndex = xlAutomatic
    Application.OnTime Executar, "IniciarPiscagem", , False
End Sub

Public VerificarCelula As Boolean
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
     
     'Adicione esse código dentro do Módulo de Plan1 (dentro do Editor VBA)
    If Range("A1") = "1" And VerificarCelula = False Then
        Call IniciarPiscagem
        VerificarCelula = True
    ElseIf Range("A1") <> "1" And VerificarCelula = True Then
        Call PararPiscagem
        VerificarCelula = False
    End If
     
End Sub