Hi,

how about something like this:
(I tested in Excel 2000. the font properties that are from the
'Hyperlink' style may be lost.)

Sub DeleteHyperlink()
ExecuteExcel4Macro "DEFINE.STYLE(""Normal"",0,0,0,0,0,0)"
ActiveSheet.Hyperlinks.Delete
ExecuteExcel4Macro "DEFINE.STYLE(""Normal"",1,1,1,1,1,1)"
End Sub

--
HTH,

okaizawa

JK wrote:
My program includes a form that allows user to enter email and website, but
with some users (not all) the text becomes a hyperlink. It shouldn't. My
program allows XL97-XP so I want to program for XL97. However, when I use
the following in XL97

Sub ZapHyperlink()
ActiveSheet.Hyperlinks.Delete
End Sub

it reformats the font and borders in cell. It shouldn't. I can include
lengthy reformatting procedures to sub, but prefer not to. Does anyone have
a suggestion how to cleanly deal with this?

Thank you in advance. Jim Kobzeff