HasPackage
From scripting
'Dim PkgManager 'Set PkgManager = MyPart.GetItem("GTCAttPkgManagerVBExt") Function HasPackage(InputObj As Variant) As Boolean On Error GoTo Blast Dim pkgs As AttPackages Set pkgs = attManager.GetAttachedPackages(InputObj) If pkgs.Count = 0 Then hasPackage = False Exit Function End If HasPackage = True Exit Function Blast: HasPackage = False End Function