CheckProduct
From scripting
Function CheckProduct(InputProduct As Variant) As Boolean On Error GoTo Blast Set InputProduct2 = InputProduct.Parent.Parent CheckProduct = True Exit Function Blast: CheckProduct = False End Function