Sub Test() Dim c As New Color c.RGBAssign 128, 0, 0 ActivePalette.InsertColor 1, c ActivePalette.SaveEnd Sub