Thanks Peter, but your method doesn't allow me to first get the current
settings. i.e. if the user has already mixed some custom colors of their own,
I need to get those so I can reset them when the user closes my program
file...

You did supply some helpful info though, such as how to convert to a long.
Thanks again.

"Peter T" wrote:

quartz" wrote in message

I want to retrieve the current color mix values (RGB) for the current user
of an Excel file (for index 17 through 27) and store these settings in a
hidden sheet. I then plan to add some custom color mixes for use with a
program, then restore the user's original colors when the user exits the
file.

You don't need individual RGB values, just the Long colour value:
x = Activeworkbook.Colors(17)

When changing more than one palette colour it's much "smoother" to apply all
56 in one go. Here's a total package for you, albeit only for colours 17 &
18.

Sub SavePalette()
Dim i As Byte
Dim vArr, vMyColors
Dim rng As Range

ActiveSheet.Range("a1:bd1") = ActiveWorkbook.Colors
vArr = ActiveWorkbook.Colors

vMyColors = Array(13097698, 12229775)
For i = 0 To 1
vArr(i + 17) = vMyColors(i)
Next
ActiveWorkbook.Colors = vArr

End Sub

Sub RestorePalette()
ActiveWorkbook.Colors = ActiveSheet.Range("a1:bd1").Value
End Sub

Obviously set a reference to a similar sized range in your hidden sheet,
enlarge the vMyColors array and loop to suit. Note vArr is "one base" and
vMyColors "zero base" (unless you've set Option Base).
Alternatively, you can save and restore the palette to a Named array, which
could be hidden.

To convert your own RGB to a Long
x = rgb(226,218,199)

Regards,
Peter T