Sub DeleteAllObjects()
 Dim Proceed As Long

 If ActiveWorkbook Is Nothing Then Exit Sub

 Proceed = MsgBox("All objects in " & ActiveSheet.Name _
  & " will be removed. Are you sure? ", vbQuestion + vbYesNo)
 
If Not Proceed = vbYes Then Exit Sub
 
ActiveSheet.DrawingObjects.Select

Selection.Delete

End Sub