Change font color for 30 seconds

This works (for a change in C2 OR c3 as an example) but it sits in the loop for the duration which stops you doing other actions. I've set it to 5 seconds for testing purposes. I'm not sure if there is a way to allow background data entry to continue to occur while the Macro is running though. Smarter individuals than I may be able to assist

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("C2:C3")) Is Nothing Then
  
    Else
    If Range("B3").Value = Range("C3").Value Then
        
        PauseTime = 5    ' Set duration.
        Start = Timer    ' Set start time.
        Do While Timer < Start + PauseTime
                Range("C3").Font.Color = -16776961
     
        Loop
        Finish = Timer
        Range("C3").Font.Color = 0
    End If
    
    
End If

End Sub