Sub TestPalette() Dim pal As Palette Dim cColor As Color Dim i As Integer Set pal = ActivePalette Set cColor = CreateCMYKColor(0, 100, 100, 0) 'Red cColor.ConvertToRGB i = pal.MatchColor(cColor) MsgBox pal.Color(i).NameEnd Sub