I tried to delete all the drawings in a certain selection.

sub deletedrawings()
Sheets("Resultaat").Select
Range("A60:H60").Select
Range("H60").Activate
Range(Selection, Selection.End(xlDown)).Select
activecells.DrawingObjects(1).Delete
Selection.ClearContents
end sub

But he gives an error on the line:
activecells.DrawingObjects(1).Delete

Note: searching and fine the drawing isn't an option because this is
totally random.
I just want to delete all drawings ans cells in the selection I made.