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