Prev: Mysteries on msnews.
Next: random sampling
From: ToBeFree71 on 25 May 2010 11:04
I would like to Remove ALL hyperlinks instead of one by one in Excel 2003
From: Gord Dibben on 25 May 2010 11:21
Sub DeleteHyperlinks()
Dim Cell As Range
For Each Cell In Intersect(Selection, _
Selection.SpecialCells(xlConstants, xlTextValues))
With ActiveSheet
.Hyperlinks.Delete
End With
Next Cell
End Sub


Gord Dibben MS Excel MVP

On Tue, 25 May 2010 08:04:01 -0700, ToBeFree71
<ToBeFree71(a)discussions.microsoft.com> wrote:

>I would like to Remove ALL hyperlinks instead of one by one in Excel 2003

From: Dave Peterson on 25 May 2010 12:49
You don't need the loop.

Sub DeleteHyperlinks()
ActiveSheet.Hyperlinks.Delete
End Sub

This will get rid of the Insert|Hyperlink version.

Gord Dibben wrote:
>
> Sub DeleteHyperlinks()
> Dim Cell As Range
> For Each Cell In Intersect(Selection, _
> Selection.SpecialCells(xlConstants, xlTextValues))
> With ActiveSheet
> .Hyperlinks.Delete
> End With
> Next Cell
> End Sub
>
> Gord Dibben MS Excel MVP
>
> On Tue, 25 May 2010 08:04:01 -0700, ToBeFree71
> <ToBeFree71(a)discussions.microsoft.com> wrote:
>
> >I would like to Remove ALL hyperlinks instead of one by one in Excel 2003

--

Dave Peterson
 | 
Pages: 1
Prev: Mysteries on msnews.
Next: random sampling