Waw thank you so fast response this was grate but something i do wrong and i do know what
Sub CATMain()
Dim doc, myview, mytexts, txt, i, baloon, baloonno, number
Set doc = CATIA.ActiveDocument
Set myview = doc.Sheets.ActiveSheet.Views.ActiveView
Set mytexts = myview.Texts...