Luis este es mi macro de formato condicional

Cells.FormatConditions.Delete
Range("A2:AJ10000").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=CONTAR.SI($D:$D;$D2)>1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True

lo hice grabando macros....me funciona bien pero ya estoy teniendo problemas ... El color que se sombrea es de color amarillo

edinson