I dont want to remove text hyperlinks :
can u just modify this code?
Dim nolinks As Integer
nolinks = 0
Dim Shp As Excel.ShapeRange
Dim IShp As Excel.Shape
Dim i As Integer
Dim j As Integer
On Error GoTo ResNextShp
If wSheet.Hyperlinks.Count = 0 Then
nolinks = nolinks + 1
Else
For j = 1 To AppExcel.ActiveSheet.Shapes.Count
AppExcel.ActiveSheet.Shapes(j).Select
Set Shp = Selection.ShapeRange
If Shp.HasDiagramNode = msoTrue Then
For i = 1 To Shp.DiagramNode.Diagram.Nodes.Count
Set IShp = Shp.DiagramNode.Diagram.Nodes(i).Shape
If IShp.Hyperlink.Address <> "" Then
IShp.Hyperlink.Delete
hashyperlinks = True
End If
Next i
End If
Set IShp = AppExcel.ActiveSheet.Shapes(j)
If IShp.Hyperlink.Address <> "" Then
IShp.Hyperlink.Delete
hashyperlinks = True
'End If
End If
Next j
i = 0
For i = AppExcel.ActiveSheet.Hyperlinks.Count To 1 Step -1
AppExcel.ActiveSheet.Hyperlinks(i).Delete
hashyperlinks = True
Next i
End If
ResNextShp:
Resume Next