Como hacer que esta macro al momento de detenerse, el color del texto sea blanco?

Public RunWhen As Double
Sub Parpadear()
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("NEW STYLES").Unprotect
With ThisWorkbook.Worksheets("NEW STYLES").Range("B2:B3").Font
If .ColorIndex = 44 Then
.ColorIndex = 46
Else
.ColorIndex = 44
End If
End With
ThisWorkbook.Worksheets("NEW STYLES").Protect
RunWhen = Now + TimeSerial(0, 0, 1)
Application.ScreenUpdating = True
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!Parpadear", , True
End Sub
Sub noparpadear()
ThisWorkbook.Worksheets("NEW STYLES").Unprotect
ThisWorkbook.Worksheets("NEW STYLES").Range("A1:A2").Font.ColorIndex = _
xlColorIndexAutomatic
ThisWorkbook.Worksheets("NEW STYLES").Protect
On Error Resume Next
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!Parpadear", , False
End Sub