Bom dia!!

Se eu te passar uma base, você consegue adaptar?

Option Explicit

Public Executar As Double
Adicione em um Modulo
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

'Exemplo 2
Option Explicit

Public VerificarCelula As Boolean
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
     
     'Adicione na 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