Try this:

Sub flashCell()
nextSecond = Now + TimeValue("00:00:01")
Application.OnTime nextSecond, "flashCell"


If Range("D7").Interior.ColorIndex = 4 Then
Range("D7").Interior.ColorIndex = 5
Range("D7").Value = "SPORT"

ElseIf Range("D7").Interior.ColorIndex = 5 Then
Range("D7").Interior.ColorIndex = 3
Range("D7").Value = "EDUCATION"

ElseIf Range("D7").Interior.ColorIndex = 3 Then
Range("D7").Interior.ColorIndex = 4
Range("D7").Value = "Media"

Else
'to kick it all off
Range("D7").Interior.ColorIndex = 4
Range("D7").Value = "Media"

End If
End Sub


"MAX" wrote:

I did that but it did not work. Will you please do the code for me since I am
a very beginner.

Thanks a lot

"JLatham" wrote:

Yes, Just copy the 3-lines from the ElseIf group and paste it right below
that group and then modify it as needed to test for and set the color index
of D7 and to set the value to = "Media".


"MAX" wrote:

Hello
I have this code (below) and I wish to add another Interior.ColorIndex 5 and
another Value "Media". Is this possible?

Option Explicit
Dim nextSecond

Sub startFlashing()
flashCell
End Sub

Sub stopFlashing()
On Error Resume Next
Application.OnTime nextSecond, "flashCell", , False
End Sub

Sub flashCell()
nextSecond = Now + TimeValue("00:00:01")
Application.OnTime nextSecond, "flashCell"


If Range("D7").Interior.ColorIndex = 4 Then
Range("D7").Interior.ColorIndex = 6
Range("D7").Value = "SPORT"

ElseIf Range("D7").Interior.ColorIndex = 6 Then
Range("D7").Interior.ColorIndex = 4
Range("D7").Value = "EDUCATION"

End If
End Sub

Thanks in advance