'Requires a reference (in the VBE) to the AnalysisToolPak (atpvbaen.xls)
Sub ColorMyCell()
'Jim Cone - May 2010
ActiveCell.Interior.Color = HexColor("FFFF00")
End Sub
'--
Function HexColor(ByRef strHex As String) As Long
AddIns("Analysis ToolPak").Installed = True
HexColor = Evaluate(Hex2dec(strHex))
End Function
--

Jim Cone
Portland, Oregon USA
worth a look... http://www.contextures.com/excel-sort-addin.html




"a1k1do via OfficeKB.com" <u59720@uwe wrote in message news:a847df74684c9@uwe...
Can I adapt this to retrun a colour RGB value to a specific cell? I'm trying
to select a colour from a picker and then return its rgb value ie FFFF00 to
a cell. I'm new to vba with excel and so many coaching would be great. thanks

-snip-