Sub Test() Dim strPlates As String Dim Plate As SeparationPlate Dim intPlateCounter As Integer With ActiveDocument.PrintSettings.Separations For intPlateCounter = 1 To .Plates.Count - 1 If .Plates(intPlateCounter).Enabled = True Then strPlates = strPlates & .Plates(intPlateCounter).Color & vbCr End If Next intPlateCounter MsgBox strPlates End WithEnd Sub