Hi Clara

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

If this post helps click Yes
---------------
Jacob Skaria


"Clara" wrote:

Hi,

Anyone know how can i hide selected objects only instead of hiding all
objects in my worksheet?