Hi HRH, you can use this code to flash the text as many times
as you want...just change the word 'look' to your needs...
Public Sub flashit()
ActiveSheet.Cells(1, 1) = "look"
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = ""
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = "look"
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = ""
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = "look"
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = ""
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = "look"
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = ""
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Cells(1, 1) = "look"
Application.Wait (Now + TimeValue("0:00:01"))
End Sub
seeya ste