Not sure exactly what you are looking for but try these ideas

Sub DeleteSheetDrawingObjects()
ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.Save
End Sub

Sub noborders()
Worksheets("Sheet1").Range("A1:D4") _
.Borders.LineStyle = xlNone
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"smandula" wrote in message
oups.com...
In a given range, say B1 to AX33, randomly there are
line draw objects.
Obviously, highlite such cell to individually delete one line or
object
at a time

How would you delete all the objects in a range.

With Thanks