Sub SelectAllObjects()
 On Error Resume Next
 ActiveSheet.DrawingObjects.Select
End Sub