Sub Test() Dim pal As Palette For Each pal In Palettes If pal.Name <> "Default CMYK palette" Then pal.Close Next pal End Sub