Hello
I have this code (below) which works perfect.
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("A105").Interior.ColorIndex = 3 Then
Range("A105").Interior.ColorIndex = 5
Range("A105").Value = IIf(Range("F102") = Range("G102"),
Range("A99"), IIf(Range("F102") Range("G102"), Range("E102"),
Range("H102")))
ElseIf Range("A105").Interior.ColorIndex = 5 Then
Range("A105").Interior.ColorIndex = 3
Range("A105").Value = "CHAMPIONS 2009-2010"
End If
End Sub

Now I need to add something else to it, where if cells F102 and G102 remain
equal, then Range("A105").Value =
Range(J102)Range(K102),Range(E102),Range(H102).
I appriciate even a small help.
Thanks in advance.