drawing objects

[compusheaf]

I have 10 sheets. On each sheet I have a drwing object (Rectangle). I want to write a macro which will select all drawing objects in that workbook and gives hyperlink to Sheet 1.

If this is not possible then, can anyone provide me a code to renmae a drwing object

 

[Damon Ostrander]

Hi compusheaf,

Give this macro a try:

Sub HyperlinkAllShapes()
Dim Sht As Object
Dim Shp As Shape
On Error Resume Next
For Each Sht In Sheets
For Each Shp In Sht.Shapes
Sht.Hyperlinks.Add anchor:=Shp, Address:="", SubAddress:="Sheet1!b4"
Next Shp
Next Sht
End Sub

This hyperlinks all hyperlinkable shapes to sheet1 cell b4.