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
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.