Hello, I am trying to find ways to delete a balloons that has "*" as text. It is because the component has been excluded from the bom. 

How can I change my code so it does not take into account the exluded component when creating autoballoons ?

Here is the code : 

Sub InsertBalloons()

   Dim swApp As SldWorks.SldWorks
   Dim Part As SldWorks.ModelDoc2
   Dim swView As SldWorks.View
   Dim vNotes As Variant
Dim autoballoonParams