Try below and see what happens ..

Option Explicit

Sub FormatAllCallouts()
Dim oShp As Shape
Dim oCF As CalloutFormat
On Error GoTo MyExit

Sheets("Figures").Visible = True
Sheets("Figures").Select
ActiveSheet.Unprotect Password:="1234"
For Each oShp In ActiveSheet.Shapes
oShp.Select
Selection.Delete
Next
Range("A1").Select
ActiveSheet.Protect Password:="1234"

Exit Sub
MyExit:
MsgBox "No shapes found!!""
End Sub





On Tuesday, 11 February 2014 20:12:42 UTC+5:30, wrote:
I have the code below which deletes "Objects" in my sheet, my problem is that it deletes a cell in Column A and moves all cells up one space, I don't know why this is occurring



When I try and select "Objects" within Find-Go to Special-Objects, it says there is none to be found and that is before I run the code below



Hope someone can advise



Thanks





Sub ClearMacroButtons()

Application.ScreenUpdating = False



Sheets("Figures").Visible = True

Sheets("Figures").Select

ActiveSheet.Unprotect Password:="1234"

ActiveSheet.DrawingObjects.Select

Selection.Delete

Range("A1").Select

ActiveSheet.Protect Password:="1234"



End Sub