Boa noite!!

Tenho esse exemplo, não é exatamente o que quer...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'Faz o a cor do cursor de uma determinada cor
Static OldRange As Range
On Error Resume Next
Target.Interior.ColorIndex = 8 '
OldRange.Interior.ColorIndex = xlColorIndexNone
Set OldRange = Target

End Sub

Boa noite!!

Tente esse.
'Exemplo 1

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

Boa noite pmteix

Veja se este links podem te ajudar:

viewtopic.php?f=10&t=850

http://infoexpert-recife.blogspot.com.b ... macao.html

Dê retorno.

A a resposta for útil, clique na mãozinha que fica no lado direita da ferramente Citar.

Abraço.

Outras opções :

Piscar células de cotação de preços
viewtopic.php?f=10&t=2618&p=11872&hilit=piscar#p11872

Víncular dados e usar formatação condicional em tab dinâmica
viewtopic.php?f=22&t=1121&hilit=piscar&start=10

[]s

Boa noite!!

Porque eu não ganhei uma mãozinha??

Minha dica não foi útil?

Att

Boa noite!

claro que a sua dica foi útil. Como sou novo no fórum, pensei que bastava clicar em uma única mãozinha...
desculpe

Boa noite!!

Valeu meu brother!!

Att

OBRIGADO!
VALEU MESMO