Kann man da ein Makro schreiben oder muß man das alles per Hand machen ?
Vielen Dank für euere Hilfe !
mfg. Eddy
Sub alle_weg()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Not Ws.ProtectDrawingObjects Then
Ws.DrawingObjects.Delete
End If
Next
End Sub
mfg Kurt