On Friday, February 14, 2014 6:58:02 PM UTC, Abhijeet Gudur wrote:
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

Your code returns "no shapes found", but why then in my original code, if there is no objects found it deletes a cell in Column A and moves all cells up one space

My code is wrong, but I don't know why