Highlite Duplicates in Range

[rpaulson]

I know I can do this with CF, but CF wont work because when I paste to HMTL I loose formatting.

Trying to Highlite Duplicates in Range via VBA.

For r = 5 To 10
myRange = Range(Cells(r, "D"), Cells(r, "H"))

For Each cell In myRange
    If WorksheetFunction.CountIf(myRange, cell.Value) > 1 Then cell.Interior.ColorIndex = 6
Next cell
Next r

Thanks for looking,

Ross

 

[VoG]

Try

Dim cell As Range, MyRange As Range
For r = 5 To 10
    Set MyRange = Range(Cells(r, "D"), Cells(r, "H"))
    For Each cell In MyRange
        If WorksheetFunction.CountIf(MyRange, cell.Value) > 1 Then cell.Interior.ColorIndex = 6
    Next cell
Next r

 

[rpaulson]

Thanks,

Don't I look like an idiot.

Ross