Flashing cell in microsoft excel 2010

[benfitz1989]

I am trying to write a code for flashing cell in Microsoft excel 2010.
I am using a code found online to do this however I continually get an error, the bold line

Runtime error '1004'
Method 'OnTime' of object'_Application' failed

Dim NextTime As Date


Sub StartFlash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flashing").Font
If .ColorIndex = xlAutomatic Then .ColorIndex = 3
.ColorIndex = 5 - .ColorIndex
End With
Application.OnTime NextTime, "StartFlash"
End Sub


Sub StopFlash()
Application.OnTime NextTime, "StartFlash", schedule:=False
ActiveWorkbook.Styles("Flashing").Font.ColorIndex = xlAutomatic
End Sub

 

[Michael M]

Do you actually have a Styles called "Flashing" on your computer ??
That is most likely your problem !!

 

[benfitz1989]

Hi Michael
Yes - i created a style called Flashing.

 

[sericom]

You'll get that error if StopFlash runs when StartFlash hasn't been run. How are you running the code?

 

[Worf]

Take a look at this page:

Pearson Software Consulting