Sub PaletteActive() MsgBox "The default color palette is: " & _ ActivePalette.Name & _ "It contains " & ActivePalette.ColorCount & " colors."End Sub