IsProductDocument
From scripting
Function IsProductDocument(CurObj As Variant) As Boolean On Error GoTo Blast Dim CurPD As ProductDocument Set CurPD = CurObj IsProductDocument = True Exit Function Blast: IsProductDocument = False End Function