[zuper]

Originariamente inviato da fmasta56

Credo di aver capito il problema: non avevo visto la risposta sotto nel link che avevi scritto! Però quel codice VBA non so proprio dove metterlo...non conosco Excel a quel punto (e, giusto per farti contento, non ho mai adoperato nemmeno le macro...!). Se vuoi posso postare una parte del foglio, tutto sarebbe troppo lungo...ma come si fa?

tasto destro sulla linguetta del foglio sotto -> codice e incolli questo

Private Sub Worksheet_Calculate()
   If Range("B8").Value = "" Then
       Blink "B10"
   Else
       Range("B10").Interior.ColorIndex = 0
   End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   Application.Run Me.CodeName & ".Worksheet_Calculate"
End Sub

poi fai inserisci modulo e incolli questo

Sub Blink(cell As String)
   If Range(cell).Interior.ColorIndex = 6 Then
       Range(cell).Interior.ColorIndex = 0
   Else
       Range(cell).Interior.ColorIndex = 6
   End If
   Application.OnTime Now + 1 / 86400, "doagain"
End Sub
Sub DoAgain()
   Application.Run Sheets("Sheet1").CodeName & ".Worksheet_Calculate"
End Sub