Sub stopum()
dq = Chr(39)
For Each r In ActiveSheet.UsedRange
v = r.Formula
If Left(v, 6) = "=HYPER" Then
MsgBox (r.Address)
r.Formula = dq & v
End If
Next
End Sub
This will convert all the hyperlinks into text. To return to "active"
hyperlinks, run the second macro:
Sub startum()
dq = Chr(39)
For Each r In ActiveSheet.UsedRange
v = r.Formula
If Left(v, 6) = "=HYPER" Then
r.Formula = r.Formula
End If
Next
End Sub
This method will NOT work if your hyperlinks were implemented using:
Insert > Hyperlink
--
Gary''s Student - gsnu200759