salve
prova a vedere se una soluzione di questo tipo può andare:
macro da inserire in un modulo:(la Sub Flash, controlla se il valore della cella A1 è maggiore di 50 se è vero, alterna il colore di sfondo da bianco a giallo e il font da nero a rosso realizzando un effetto lampeggio- Dato che la macro viene eseguita a ciclo continuo, per fermarla bisogna usare la macro StopFlash)
Dim tempo As Date
Sub Flash()
tempo = Now + TimeValue("00:00:01")
With [A1]
If .Value > 50 Then
If .Interior.ColorIndex = xlNone Then .Interior.ColorIndex = 6 Else .Interior.ColorIndex = xlNone
If .Font.ColorIndex = 1 Then .Font.ColorIndex = 3 Else .Font.ColorIndex = 1
End If
End With
Application.OnTime tempo, "Flash"
End Sub
Sub StopFlash()
Application.OnTime tempo, "Flash", schedule:=False
With [A1]
.Font.ColorIndex = xlAutomatic
.Interior.ColorIndex = xlNone
End With
End Sub
Per far partire l'effetto all'apertura del file, basta inserire la macro che segue sfruttando l'evento open del foglio.
Private Sub Workbook_Open()
Call Flash
End Sub
saluti
Andrea