Sub Test() Dim intCounter As Integer With ActiveDocument.PrintSettings.Trapping For intCounter = 1 To .Layers.Count - 1 If .Layers.Item(intCounter).Color = "Yellow" Then MsgBox "The density of the yellow plate is " & _ .Layers.Item(intCounter).Density End If Next intCounter End WithEnd Sub