Sub Test() Dim c As New Color Dim src As Palette, dest As Palette Dim idx As Long Set src = ActivePalette Set dest = Palettes.Create("Bright Colors") For Each c In src.Colors dest.AddColor c Next c For idx = dest.ColorCount To 1 Step -1 c.CopyAssign dest.Color(idx) c.ConvertToHLS If c.HLSLightness < 128 Then dest.RemoveColor idx Next idx End Sub