This technique will work if your hyperlinks were implemented using the
=HYPERLINK() function. Run this first macro:

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


"looloof" wrote:

I have a lot of hyperlinks in my excel sheet. I need those link, but I really
wish they wouldn't open the second I click on them. Is there anyway to disble
them temporarily or at least make it so I have to ctrl+click?
I have excel 2000.