VBA to copy Gradient of cell based on contents

Hi,

I currently use the blow code to copy the colour of a cell depending on its contents. But what im trying to do is also copy the 'fill effects' of the cell or the gradient of the colour(s).

Can anyone point me in the right direction?

Thanks in advance

I have posted this at Ozgrid as well. http://www.ozgrid.com/forum/showthread.php?t=198663

Please Login or Register  to view this content.

Thanks for this worked, but did hang a little then left it in copy mode for the selected colour.

Got this a solution over at ozgrid on the link in my original post.

But thank you for your time and help it is appreciated.