DeleteHSObjectsArray
From scripting
Sub DeleteHSObjectsArray(InputArray As Variant) If UBound(InputArray) = 0 Then Exit Sub End If For X = 0 To UBound(InputArray) - 1 MyHSFactory.DeleteObjectForDatum InputArray(X) Next X End Sub