Sub Test() Dim c1 As Color Dim c2 As Color 'Blend a Red and Green Color at 50% Set c1 = CreateRGBColor(255, 0, 0) Set c2 = CreateRGBColor(0, 255, 0) c1.BlendWith c2, 50 ActiveShape.Fill.ApplyUniformFill c1End Sub