Sub Test() Dim intPlateCounter As Integer With ActiveDocument.PrintSettings.Separations For intPlateCounter = 1 To .Plates.Count - 1 If .Plates(intPlateCounter).Enabled <> True Then MsgBox "The " & .Plates(intPlateCounter).Color & _ " is not enabled." End If Next intPlateCounter End WithEnd Sub