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