Highlighting cell

[Waldi]

I want to switch background color of the cell to red and then gradually go back to no background color in next 3-4 sec. in rsponse to specific condition. Basically, after cell background becomes i.e red it will dim itselft off within specific period of time i.e. 5sec.
Is there an easy way to do this?

thanks

[Al Chara]

How about something like the following:

Sub FadeAway()
Selection.Interior.ColorIndex = 3
Application.Wait (Now + TimeValue("0:00:01"))
Selection.Interior.ColorIndex = 46
Application.Wait (Now + TimeValue("0:00:01"))
Selection.Interior.ColorIndex = 45
Application.Wait (Now + TimeValue("0:00:01"))
Selection.Interior.ColorIndex = 44
Application.Wait (Now + TimeValue("0:00:01"))
Selection.Interior.ColorIndex = 36
Application.Wait (Now + TimeValue("0:00:01"))
Selection.Interior.ColorIndex = xlNone
End Sub

It will fade from red to nothing in about 5 seconds.

[Damon Ostrander]

Hi Waldi and Al,

I just want to mention that it is possible to modify Al's macro to dim the cell in such a way that user input is not locked out during the 5 seconds that the macro is running. This can be done by using OnTime rather than Wait for the one second between color changes.

[Waldi]

Thanks for the info.