Sub PalettesItem() With Palettes.Item(1) 'Palettes(1) may be used here MsgBox .Colors.Count End WithEnd Sub