Remove hyperlinks

Hi All,

I have a workbook with about 20 sheets, each contains hundreds of hyperlink.
I have a macro from Microsoft (http://support.microsoft.com/kb/213790) to
remove all of the hyperlinks. After this is done, all the text formats were
changed back to Normal. Is there a way to remove the hyperlinks while
keeping the exact same text formats?

Thanks,

VT

Vt wrote:
Is there a way to remove the hyperlinks while
keeping the exact same text formats?

Sub LoseHyperlinksButKeepFormatting()
Dim C As Range
Dim H As Hyperlink
Dim cSave As Range
Set cSave = Range("A1").SpecialCells(xlLastCell)
For Each H In ActiveSheet.Hyperlinks
Set C = H.Range
C.Copy
cSave.PasteSpecial xlPasteFormats
H.Delete
cSave.Copy
C.PasteSpecial xlPasteFormats
Next
cSave.Clear
End Sub

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup