The Palettes property returns the collection of open color palettes.
Examples:
The following VBA example displays the name of all palettes in use, and the number of colors in each palette, in a message box.
Sub PalettesList()
Dim pal As Palette
Dim s As String
s = "Active palettes. "
For Each pal In Palettes
s = s & pal.Name & " (" & pal.ColorCount & " colors)"
Next pal
MsgBox s
End Sub