Prev: VLOOKUP/HLOOKUP Query
Next: count text occurance in range
From: Richhall on 6 Jan 2010 14:08
Lars-Åke, thank you that worked brilliantly, amended slightly to put
in a longer script:

Dim r As Range

Set r = Worksheets("Sheet1").Range("DuplicateRange")

For Each c1 In r
duplicate_found = False
For Each c2 In r
If (c1.Address <> c2.Address) And c1.Value = c2.Value Then
duplicate_found = True
End If
Next c2
If duplicate_found Then
c1.Font.Italic = True
c1.Font.Bold = True
Else
c1.Font.Italic = False
c1.Font.Bold = False
End If
Next c1

Max, thank you had already used Lars-Åkes post, so not tried that way.

From: Max on 6 Jan 2010 18:13
> Max, thank you had already used Lars-�kes post, so not tried that way.

No problem. It doesn't take more than 10 seconds of your time to try that
option, though.
--
Max
Singapore


First  |  Prev  | 
Pages: 1 2
Prev: VLOOKUP/HLOOKUP Query
Next: count text occurance in range