Sub Test() Select Case ActiveDocument.PrintSettings.Separations.Plates.Count Case 0 MsgBox "There are no plates to print" Case 1 MsgBox "There's 1 plate to print" Case Else MsgBox "There are " & _ ActiveDocument.PrintSettings.Separations.Plates.Count & _ " plates to print" End SelectEnd Sub