Blinken trotz Blattschutz

Sub ersteFarbe()
ThisWorkbook.Sheets(Sheets.Count).Range("E14:J14").Interior.ColorIndex = 6
For Each RaZelle In ThisWorkbook.Sheets(Sheets.Count).Range("E14:J14")
If RaZelle.Value  "" Then
Set RaFind = ThisWorkbook.Sheets(Sheets.Count).Range("E179:M179").Find(What:= _
RaZelle.Value, _
LookAt:=xlWhole)
If Not RaFind Is Nothing Then RaZelle.Interior.ColorIndex = InFarbe1
End If
Next RaZelle
DaEt = Now + DaZeit                     ' neue Startzeit setzen
Application.OnTime DaEt, "zweiteFarbe"  ' Prozedur zur Startzeit starten
End Sub

Sub zweiteFarbe()


Sub Ende()
On Error Resume Next
Application.OnTime EarliestTime:=DaEt, Procedure:="ErsteFarbe", Schedule:=False
Application.OnTime EarliestTime:=DaEt, Procedure:="zweiteFarbe", Schedule:=False
DaEt = 0
ThisWorkbook.Worksheets(Sheets.Count).Range("A15").Interior.ColorIndex = 0
End Sub


Danke für eure Hilfe!