blink_cell.bas

Option Explicit

Sub blink_cell()
    Dim blinking_cell As Range
    Set blinking_cell = Sheet1.Range("C7")
    
    Do While Sheet1.Range("B1").Value < Sheet1.Range("B7").Value
        blinking_cell.Interior.ColorIndex = 43
        Application.Wait (Now + TimeValue("0:00:01"))
        blinking_cell.Interior.ColorIndex = 0
        Application.Wait (Now + TimeValue("0:00:01"))
        blinking_cell.Interior.ColorIndex = 43
        DoEvents
        If Sheet1.Range("C1").Value = 1 Then Exit Do
    Loop
    If Sheet1.Range("B1").Value >= Sheet1.Range("B7").Value Then
        blinking_cell.Interior.Color = vbWhite
    End If
    
End Sub