In diesem Beispiel wird jeder definierte Name gelöscht, der "temp" enthält. Die Anweisung Option Compare Text muss oben bei jedem Modul stehen, das dieses Beispiel enthält.
For Each nm In ActiveWorkbook.Names If nm.Name Like "*temp*" Then nm.Delete End If Next nm
In diesem Beispiel wird jeder Form in Sheet1, die das Wort "Line" in seinem Namen hat, eine Pfeilspitze hinzugefügt.
For Each d In Worksheets("Sheet1").DrawingObjects If d.Name Like "*Line*" Then d.ArrowHeadLength = xlLong d.ArrowHeadStyle = xlOpen d.ArrowHeadWidth = xlNarrow End If Next