Need macro to wipe all colors an leave me with material default

Anyone have s simple macro?  I want to strip all individually defined appearances and be left with the material color on the body

.RemoveMaterialProperty(Config_opt, "Default") doesn't touch face defined colors.

SolidworksApi macros