Sub Test() Dim pal As Palette Set pal = ActivePalette MsgBox "Default palette '" & pal.Name & "' contains " & pal.Colors.Count & " color(s)"End SubSub Test() Dim s As Shape Set s = ActiveLayer.CreateEllipse2(2, 2, 1) s.Fill.ApplyUniformFill ActivePalette.Colors(15)End Sub