Are you talking about showing this:

Application.Dialogs(xlDialogPatterns).Show

or This

Application.Dialogs(xlDialogColorPalette).Show

These are not generic color picker dialogs. The don't return the Selection.
Bob Phillips has posted code like this which actually colors a cell and then
gets the color of the cell:

'-----------------------------*------------------------------*
Function GetColorindex(Optional Text As Boolean = False) As Long
'-----------------------------*------------------------------*

Dim rngCurr As Range


Set rngCurr = Selection
Application.ScreenUpdating = False
Range("IV1").Select
Application.Dialogs(xlDialogPatterns).Show
GetColorindex = ActiveCell.Interior.ColorIndex
If GetColorindex = xlColorIndexAutomatic And Not Text Then
GetColorindex = xlColorIndexNone
End If
ActiveCell.Interior.ColorIndex = xlColorIndexAutomatic
rngCurr.Select
Set rngCurr = ActiveSheet.UsedRange
Application.ScreenUpdating = True
End Function


--
Regards,
Tom Oglvy


"Richard Buttrey" wrote in
message ...
Hi,

From within a VBA Form I need to open up the standard Excel colour
chart so that the user can make a selection which will become a
variable I use elsehwere in the code.

Can someone point me in the right direction please.

Many thanks.


__
Richard Buttrey
Grappenhall, Cheshire, UK
__________________________