UnCall a sub routine

Sub FlashBack()

 Dim newColor As Integer
 Dim myCell As Range
 Dim x As Integer
 Dim fSpeed

 Set myCell = ActiveCell
 Application.DisplayStatusBar = True
 Application.StatusBar = "... Select Cell to Stop and Edit or Wait for Flashing to Stop! "
 newColor = 27
 fSpeed = 0.5
 Do Until x = 20

 DoEvents
 Start = Timer
 Delay = Start + fSpeed
 Do Until Timer > Delay
 DoEvents
 myCell.Interior.ColorIndex = newColor
 Loop
 Start = Timer
 Delay = Start + fSpeed
 Do Until Timer > Delay
 DoEvents
 myCell.Interior.ColorIndex = xlNone
 Loop
 x = x + 1
 Loop
 Application.StatusBar = False
 Application.DisplayStatusBar = Application.DisplayStatusBar
 End Sub