Sub InterColor2() Dim myrange As Range, n As Range h = 3 Do While h < 31 For l = 3 To 20 Set myrange = Cells(l, h) For Each n In Range("C3:T30") If n.Value = Cells(l, h).Value Then Set myrange = Union(myrange, n) myrange.Interior.Color = RGB((Int(256 * Rnd())), (Int(256 * Rnd())), (Int(256 * Rnd()))) End If Next Next h = h + 1 Loop End Sub