Could anyone tell me why the code below "Deletes A1 and moves the cells up 1"?

I'm at a loss to know why this is happening. Firstly I searched to see if there are any object on sheet (Find-Go to Spectal-Objects) and there aren't any, I run the code below anyway and above happens (which has the effect of distorting the layout of my sheet). I would except if no objects, it doesn't do anything


Sub ClearObjects()
Application.ScreenUpdating = False

Sheets("Sheet1").Visible = True
Sheets("Sheet1").Select
ActiveSheet.DrawingObjects.Select
Selection.Delete
Range("A1").Select

End Sub