Try the below macro. You dont need to select the object; instead just select
the cell range. All objects within selection will be hidden
Sub Macro1()
Dim obj As Object
For Each obj In ActiveSheet.DrawingObjects
If Not Intersect(obj.TopLeftCell, Selection) Is Nothing Then
obj.Visible = False
End If
Next
End Sub