AddSetIfNotThere
From scripting
Function AddSetIfNotThere(ContainerSet As Variant, HBName As String) As HybridBody Dim JKL As HybridBody If ContainerSet.HybridBodies.Count = 0 Then Set JKL = ContainerSet.HybridBodies.Add JKL.Name = HBName Set AddSetIfNotThere = JKL Exit Function End If Dim SetCounter As Integer SetCounter = 1 While SetCounter <= ContainerSet.HybridBodies.Count If ContainerSet.HybridBodies.Item(SetCounter).Name = HBName Then Set JKL = ContainerSet.HybridBodies.Item(HBName) Set AddSetIfNotThere = JKL Exit Function End If SetCounter = SetCounter + 1 Wend Set JKL = ContainerSet.HybridBodies.Add JKL.Name = HBName Set AddSetIfNotThere = JKL End Function