Sub Test() If ActivePalette.FindColor("Red") = 0 Then ActivePalette.AddColor CreateRGBColor(255, 0, 0) End IfEnd Sub