Sub Test() Dim pal As Palette Set pal = ActivePalette MsgBox "Default palette contains " & pal.ColorCount & " color(s)"End Sub