Making a cell flash

[steelers777]

If I have text typed into a cell how do I make it flash? Also, if I have a score that is calculated in cells how do I make the winners name turn a different color (red)?

For example,

Sam 35 Kenny 43

I have made the excel document where the point totals will combine the scores or points from previous pages and total them on the last page. However, I would like the persons name with the highest point total to turn their name a different color than black (red).

Thanks for your help!

 

[VoG]

Check the formula in conditional formatting. Make sure that Excel has not added anything or changed what you typed in - for example adding "

 

[pbt]

under Conditional Formating > did you click on the format button and choose a format (like Bold, maybe)

 

[steelers777]

Under the conditional formatting it still has:

=MOD(SECOND(NOW()),2)=1


Would it make it not work if I had also went under FORMAT then CELL and went under alignment and clicked on Merge Cell and Wrap Text then selected the Yellow Bold text on black background?

 

[VoG]

Try doing the conditional format in another cell that isn't merged or formatted. Then run the code and see if that works. Any cell with that conditional format should flash once a second when that code is run.

I have tested this and it works for me - Excel 2003 and Windows XP.

 

[steelers777]

Ok, I will try this now. Let me know if you'd like to see the document I'm trying to get this to work on and I can send it to you. I'll try your suggestion though.

 

[steelers777]

I got it to work. Thank you very much for your help!!!

 

[pbt]

steelers777

I have just tested this out myself. You have to set your formats in the Condtional Format box.

Would it make it not work if I had also went under FORMAT then CELL and went under alignment and clicked on Merge Cell and Wrap Text then selected the Yellow Bold text on black background?

I tried that and it does not work by setting formats from there.

 

[pbt]

VoG II,

Is there a way to modify the code so it would blink just, say 10 times then automatically go to the EndProcess.

 

[VoG]

Hi hawaiian harry

Try

Dim NextTime As Date, I As Byte
Sub RepeatOneSec()
    ActiveWorkbook.Styles("normal").NumberFormat = _
        ActiveWorkbook.Styles("normal").NumberFormat
    NextTime = Now() + TimeSerial(0, 0, 1)
    I = I + 1
    If I > 20 Then Exit Sub
    Application.OnTime NextTime, "RepeatOneSec"
End Sub

this gives 10 'off/on' cycles.

 

[pbt]

VoG II,

Thank you, that does the trick.

h.h.