help with add color marcro

Can any help me with a vba macro? I am trying to update model color to RGB 128. The macro recorder will not pick my actions up while trying to do this. I was able to find a vba example to remove all appearances which worked great, but I can't find one for adding an appearance. It would be great to have one macro to do both but if I have to do one at a time I will settle for that.

I appreciate it guy - thanks

Jim

SolidworksApi macros