Boa tarde pessoal,

Estou com um problema com execução de uma macro que deixa uma determinada célula com cor intermitente, dependo do resultado de uma outra célula.

segue exemplo:

Option Explicit
Dim nextSec

Sub startFlashing()
flashCell
End Sub

Sub stopFlashing()
On Error Resume Next
Application.OnTime nextSec, "flashCell", , False
End Sub

Sub flashCell()
Dim célula As Range
nextSec = Now + TimeValue("00:00:01")
Application.OnTime nextSec, "flashCell"

If Range("C1").Value = 1 Then
If Range("B1").Interior.ColorIndex = 2 Then
Range("B1").Interior.ColorIndex = 3
ElseIf Range("B1").Interior.ColorIndex = 3 Then
Range("B1").Interior.ColorIndex = 2
End If
ElseIf Range("C1").Value = 2 Then
If Range("B1").Interior.ColorIndex = 2 Then
Range("B1").Interior.ColorIndex = 6
ElseIf Range("B1").Interior.ColorIndex = 6 Then
Range("B1").Interior.ColorIndex = 2
End If
End If

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
stopFlashing
End Sub

Private Sub Workbook_Open()
startFlashing
End Sub

A célula que muda a cor é a B1 e a que recebe o valor de dependência é a C1

Me ajudem por favor...