I have tried this but its not working..



Code
-------------------

ActiveSheet.Shapes("Organization Chart").Select
Set Shp = Selection.ShapeRange




For i = 1 To Shp.DiagramNode.Diagram.Nodes.Count
Set IShp = Shp.DiagramNode.Diagram.Nodes(i).Shape
On Error Resume Next
If IShp.Hyperlink.Address < "" Then
IShp.Hyperlink.Delete
End If
On Error GoTo 0
Next i


-------------------


methos or data member not found--- error

If we directly say hyperlinks . remove it removes from other thing
except from graphical objects like organization char

--
v_gyk
-----------------------------------------------------------------------
v_gyku's Profile: http://www.msusenet.com/member.php?userid=521
View this thread: http://www.msusenet.com/t-187107072