Sub Test() Dim s As String Dim pal As Palette s = "Open palettes:" & vbCr For Each pal In Palettes s = s & vbCr & pal.Name Next pal MsgBox sEnd Sub