You could use something like this:

sub newmacroforyou()

lineerror = "no"

Do
Do While lineerror = "no"
On Error GoTo lineerror:

Cells.Find(What:="www", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Value = "new values"
Selection.Hyperlinks(1).Delete
Loop
Loop Until lineerror = "yes"

If lineerror = "yes" Then
lineerror: MsgBox "Find and replace compelte."
End If

end sub

Hope this helps!
-Chad

" wrote:

I need to run a macro which will find all hyperion links and replace
with values...I tried copying one from another workbook but it wont
run...any suggestions?