I've simplified my requirements (compared to a previous thread) and found some code that partially works. (I found it here on VBAX, but I can't remember who's original work it is, so who ever created it, I appreciate it.) Now I have a start, but need a few changes.
I'd like this to only change the interior color of the cells with a number in them, and to ignore the cells that are blank or have any text in them. Also some cells have a different interior color already, if possible I'd like it to retain it's color. The following code changes the interior color to white for all cells that are not a duplicate.
Here's what I have so far
[VBA]Sub MakeDupsRed()
Dim myRange As Range
Dim strColToSort As String
'Note: first cell in column is considered a heading
'and is not included in the filter.
strColToSort = "D"
Application.ScreenUpdating = False
Set myRange = Columns(strColToSort & ":" & strColToSort)
myRange.Interior.ColorIndex = 3
myRange.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
myRange.Interior.ColorIndex = xlNone
ActiveSheet.ShowAllData
Application.ScreenUpdating = True
End Sub[/VBA]
Thanks
Rolly