Cell Range Font color change add to existing code

[nhbartos]

Hi folks...

I have one for you. Still a newby here and learning how to edit existing macros.

I decided that at the end of this macro, after Range ("f1313").Select, I would like this specific cell range font to change from white to green. I am missing something and can't get it to work.

Here is the last bit of code:

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowInsertingColumns:=True, _
AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowSorting:=True, _
AllowFiltering:=True, AllowUsingPivotTables:=True
Sheets("0 Student List").Select
Range("F9").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("F13:O13").Select
End Sub

Thanks in advance!

 

[JoeMo]

try:

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, userinterfaceonly:=True
Range("F13:O13").Font.Color = vbGreen

 

[nhbartos]

Hi thanks JoeMo! Works fine.
Is there a way for it to time out and revert back to the original color?
Currently the text is invisible as I matched it to the background.
I only want the text to appear at a certain point in time, then go back to the original color.
Possible?

 

[SlamDunk]

Once the text appears, you can use
<code style="margin: 0px; padding: 0px; border: 0px; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, sans-serif; white-space: inherit;">Application.Wait(Now + TimeValue("0:00:01"))
</code>(Time is in H:MM:SS)

After that line, you can use
Range("F13:O13").Font.Color = "your original color"

 

[JoeMo]

Hi thanks JoeMo! Works fine.
Is there a way for it to time out and revert back to the original color?
Currently the text is invisible as I matched it to the background.
I only want the text to appear at a certain point in time, then go back to the original color.
Possible?

For how long would you like it to be green before reverting to white, and will you need to use Excel while the clock is running?