Hi garym, use this and flash away...
Apologies if you know...
"Cells(7, 5)" is the cell address, just copy for as many flashes as
you want....
Public Sub flashalot()
ActiveSheet.Cells(7, 5) = " Text to flash"
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(7, 5) = ""
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(7, 5) = " Text to flash"
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(7, 5) = ""
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(7, 5) = " Text to flash"
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(7, 5) = ""
End Sub
seeya ste