display color picker using VBA code

Question

I want to change all the cells in my spreadsheet that are a particular background color, to a different color.  I have designed a pretty easy way to do that, but I currently have to hard code the values of both the original and new colors.  It would be nice if I could display the "color picker" dialog (twice) so I could select each of them from the palette.  Is there a way to do that from within VBA code?

I can get the original color if the background of the active cell is the color I want to change, but I can't figure out how to select the new color.  If it was the font color I wanted to change, I could do it using:

Application.Dialogs(xlDialogFontProperties).Show

but I can't find a similar method for dealing with the background color.

Any help would be much appreciated.

Thanks!

HJ

Answer 1

Application.Dialogs(xlDialogPatterns).Show

Answer 2

Application.Dialogs(xlDialogFontProperties).Show

Aha!  There's usually an answer, it's just not always obvious.....

Thanks very much!

HJ