Excel macro errorClosed

Question

I recently tried this macro to make a cell in excel blink but it gives me an error. Our of range error 9

This is the macro

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


Any suggestions?

This is the line with the error.
With ActiveWorkbook.Styles("Flashing").Font

Dale

RayH · Answer

https://ccm.net/faq/29065-excel-a-macro-to-make-cells-blinks

You need to create the style name first. See the link above. Although in that link they have defined the Style to be called 'Blinking' and yet use the same code as you are have but reference 'Flashing'.

TrowaD · Answer

Hello,

A blinking cell sounds interesting, so I gave it a try.

I changed the style of A1 (and put some data in it) from Arial to Flashing (Same as reference in the code), run the code and got the same error as Dale.

I tried to format the entire sheet as Flashing, with no success.

I'm using Excel 2003, maybe it only works with the latest versions? But that is pure speculation.

Did someone get this to work?

Best regards,
Trowa

RayH · Answer

Yes. It works just fine without any code changes.
The error message appears because the 'Flashing' style is not defined.

http://office.microsoft.com/en-us/excel-help/using-styles-in-excel-HA001110199.aspx

TrowaD · Answer

Thanks Ray, it's working now.

Excel macro error

4 responses

Similar discussions

Subscribe To Our Newsletter!