Remove Hyperlinks Without Changing background shading
Hi,
Am Mon, 25 Feb 2013 14:00:40 -0600 schrieb JCO:
I have many workbooks and sheets that I need to remove the hyperlinks from.
When doing the code below, it removes all formatting.
remove only hyperlink address:
Sub Test()
Dim hyp As Hyperlink
With ActiveSheet
For Each hyp In .Hyperlinks
hyp.Address = ""
Next
End With
End Sub
Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2
|