ich versuch mit folgendem Code die ole Steuerelemnte auf dem Tabellenblatt zu löschen.Das Ganze soll im Workbook before close Ereignis ablaufen
If Worksheets.Count = 1 Then
With Sheets("test")
.Cells(70, 2).Value = ""
.Cells(72, 2).Value = ""
End With
For Each obj In Worksheets("Test")
If obj.OLEType = 2 Then
obj.Delete
End If
Next obj
End If
Leider ohne Erfolg.Kann mir jemand sagen , was ich hier falsch mache?
Gruß
Frank