Display color (or Format Cells) dialog in a macro?

[Mick]

If I use the following in a macro, how can I get the selected color after the
user clicks the OK button? Is there another way to display a color selection
dialog?

Or, better yet, how can I display the 'Format Cells' dialog in a macro?


Dim bResult As Boolean
bResult = Application.Dialogs(xlDialogColorPalette).Show

 

[Tom Ogilvy]

The selected cell will be formatted when the user makes a selection from the
dialog.

So you can read the color from the cell.

Or, better yet, how can I display the 'Format Cells' dialog in a macro?

application.CommandBars("Format").Controls(C&ells...").Execute