Thanks for looking at this. I have a 'warning' line of text that appears
if two texting variable do no agree.
It works fine, however i would like to make it 'blink.' is there a way?
would you either share it with me or guide me to the reference location.
thanks in advance
regards,
james woollen
Bill Manville
MVP - Microsoft Excel
Oxford, England
Dim NextTime As Date
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub
Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveWorkbook.Styles("Flash").Font.ColorIndex = xlAutomatic
End Sub
james <jwoo...@mindspring.com> wrote in message
01be40cf$bcecdc40$5c0756d1@hal...