Is there a way to clear all shaded cells in a worksheet using a macro?

I have received a lot of help from this news group.
Thank you very much.