Not tested the code, but it goes in a sub

Sub RemoveHTML()
Dim lnk As Long
With Worksheets("Sheet1")
For lnk = 1 To .Hyperlinks.Count
.Hyperlinks.Delete
Next
End With
End Sub

--
HTH

Bob Phillips

"Carlton Patterson" wrote in message
...
Hi,

I keep on the getting the message that the following is invalid outside
procedu

With Worksheets("Sheet1")

Any help would be appreciated.

Cheers

Carlton


*** Sent via Developersdex http://www.developersdex.com ***