Flashing cell in microsoft excel 2010

benfitz1989

New Member
Joined
Jun 3, 2015
Messages
2
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

Well-known Member
Joined
Oct 27, 2005
Messages
18,295
Office Version
2013
Platform
Windows
Do you actually have a Styles called "Flashing" on your computer ??
That is most likely your problem !!
 

sericom

Well-known Member
Joined
Jan 19, 2006
Messages
891
You'll get that error if StopFlash runs when StartFlash hasn't been run. How are you running the code?
 
Last edited:

Forum statistics

Threads
1,085,357
Messages
5,383,160
Members
401,816
Latest member
Balearic

Some videos you may like

This Week's Hot Topics

Top