Fehlermeldung

Option Explicit
Public RunWhen As Double
Sub StartBlink()
If Range("h18").Interior.ColorIndex = 3 Then
Range("h18").Interior.ColorIndex = 1
Else
Range("h18").Interior.ColorIndex = 3
End If
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink", , True
End Sub
Sub StopBlink()
Range("h18").Interior.ColorIndex = xlAutomatic
Application.OnTime RunWhen, "StartBlink", , False
End Sub

Hinter meiner Tabelle:

Option Explicit
Public CellCheck As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Change the IF statement and cell range to what you need
If Range("h18") = "" And CellCheck = False Then
Call StartBlink
CellCheck = True
ElseIf Range("h18")  "" And CellCheck = True Then
Call StopBlink
CellCheck = False
End If
End Sub

und in DieserArbeitsmappe:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
StopBlink
End Sub

Wenn H18 leer ist soll die zelle blinken, aber beim verlassen der Datei (beim Speichern muss ich den Blinker abstellen), da kommt die Meldung

Woran liegt das und was kann ich dagegen machen?
Danke im Voraus
¨Serge