Change ColorStyleName inVBA?

(I'm typing this from memory)

I'm using color styles.

An object has a uniform color fill, and the string value of ColorStyleName is "Color1".
How can I change that to "Color2"?

I know that ColorStyleName is a read-only value, but maybe there is a way around?