[zuper]

Originariamente inviato da fmasta56

E' una cartella vuota, nuova, creata appositamente...te la allego (creata con Excel 2003).

è un problema di lingua nel senso che nella seconda parte di codice

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

fa riferimento al foglio di lavoro come Sheet1

nella tua cartella invece il foglio si chiama appunto Foglio1

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("Foglio1").CodeName & ".Worksheet_Calculate"
End Sub

banalmente modificalo così...salva...chiudi e riapri e vedi che funziona