Sub ColorsCount() MsgBox "Active palette '" & ActivePalette.Name & "' contains " & _ ActivePalette.Colors.Count & " colors"End Sub