Time based cell content view

[thompson]

Is there a way to have the contents of a cell exposed for a period of time (eg 5 seconds) with a hot key command?

For example, I have a calculation I don't want visable at all times. Is there a way to change the text color from white to black for 5 seconds then back to white at the end of the 5 seconds?

 

[Glaswegian]

Hello

Would something like this help?

Sub ChangeColour()

TimeNext = DateAdd("s", 5, Time)
Range("A1").Font.ColorIndex = 1
Application.Wait TimeNext
Range("A1").Font.ColorIndex = 2
End Sub

You can assign a hot key to suit. However, bear in mind that you won't be able to do anything on your sheet while the macro waits for the 5 seconds.

HTH

Regards

 

[erik.van.geit]

If you would like to do something while the celltext is displayed, use this code.

Kind regards,
Erik

Sub ChangeColour()
Dim oldTime As Variant
TimeNext = DateAdd("s", 5, Time)
Range("A1").Font.ColorIndex = 1
oldTime = Timer
Do
DoEvents
Loop Until Timer - oldTime > 5
Range("A1").Font.ColorIndex = 2
End Sub

 

[thompson]

Thank you Glaswegian

- Works Perfectly

 

[Glaswegian]

Doh!!!!!!

Nicely done Erik!

 

[erik.van.geit]

Glaswegian,

just learned from the Help files and the Board

kind regards,
Erik