Don't need VBA. Use XL's conditional formatting. Select the entire
range (suppose it is A1:F1), then Format | Conditional Formatting...
From the first drop down box select 'Formula Is' and in the adjacent
textbox enter =COUNTIF($A$1:$F$1,A1)1. Click the Format... button and
set the desired format.

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

In article ,
says...
Need to find duplicate or double numbers per row. Such as
1 2 3 4 5 5 6 7 in which 5 5 are double numbers in error
highlite 5 5 in color, move on to the next set of error double numbers.
I would like a range of numbers 1 to 70 to be checked at once.
The problem is in "MyValue = 1 to 70"

Sub LookDoubleAgain()
Dim x As Range
' MyValue = Range("A1")
MyValue = CInt(MyValue)
With Sheets("Sheet1")
Set x = .Range(.Range("C2"), .Range("V2201"))
End With
For Each c In x
If c.Value = MyValue Then
If c.Value = c.Offset(0, 1).Value Then
Range(c, c.Offset(0, 1)).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
End If
Next
'Range("A1").Select
End Sub

With Thanks
Steve