Sub Test() If ActivePalette.DuplicatePresent Then MsgBox "Default palette contains duplicate colors" End IfEnd Sub