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 sEnd Sub