Set Color Automatically

[Qaspec]

I want to use VB that will automatically set my custom
color R221 G221 B221 as the last color in the 2nd row of
the standard color chart in the tools, options color menu.
Any help would be apprciated.

 

[Tom Ogilvy]

Sub Workbooks_Open()
Dim lngColor As Long
lngColor = RGB(221, 221, 221)
ActiveWorkbook.Colors(16) = lngColor
End Sub

Put this in the ThisWorkbook code module.

 

[Bob Phillips]

ActiveWorkbook.Colors(16) = RGB(221, 221, 221)

--

HTH

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