Hi Scott,

Here is one way to use it.

To demonstrate it , type ?ReturnColorindex() in the immediate window, and
you will be returned the number of the colour you choose.

Function ReturnColorindex() As Long
Dim rngCurr As Range
Set rngCurr = Selection
Application.ScreenUpdating = False
Range("IV1").Select
Application.Dialogs(xlDialogPatterns).Show
ReturnColorindex = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = xlColorIndexAutomatic
rngCurr.Select
End Function


Note, you cannot call this function as a UDF as it updates another cell in
the workbook.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"scottnshelly " wrote in
message ...
Application.Dialogs(xlDialogColorPalette).Show

this is awesome, but then it doesn't do anything when i chose my color.
What are the possibilities?


---
Message posted from http://www.ExcelForum.com/