Sub Test() Dim pal As Palette Dim lvl As Long Dim c As New Color Set pal = Palettes.Create("Shades of Cyan",, True) For lvl = 0 To 100 Step 5 c.CMYKAssign lvl, 0, 0, 0 pal.AddColor c Next lvl pal.SaveEnd Sub