Remove HTML links in excel

Hello all,

Can someone let me know if its possible to remove a whole bunch of html
links in excel. I have opened a html page with excel which naturally has
a number of links in it. I can remove links individually by simply right
clicking on a link and then click on 'remove hyperlink' however it
appears impossible to remove more than one hyperlink in a range of cells
at the same time.

Any help will be greatly appreciated.

Cheers

Carlton



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

Hyperlinks on a worksheet are stored in the Hyperlink Collection. The
following removes all hyperlinks in a worksheet

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


--
Cheers
Nigel



"Carlton Patterson" <[email protected]> wrote in message
news:[email protected]...
> Hello all,
>
> Can someone let me know if its possible to remove a whole bunch of html
> links in excel. I have opened a html page with excel which naturally has
> a number of links in it. I can remove links individually by simply right
> clicking on a link and then click on 'remove hyperlink' however it
> appears impossible to remove more than one hyperlink in a range of cells
> at the same time.
>
> Any help will be greatly appreciated.
>
> Cheers
>
> Carlton
>
>
>
> *** Sent via Developersdex http://www.developersdex.com ***

Hi Nigel,


Thanks for responding.

Excuse my ignorance, but can you tell me where I need to place the code
you just sent?

Cheers mate.

Carlton


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

Hi Nigel,


Thanks for responding.

Excuse my ignorance, but can you tell me where I need to place the code
you just sent?

Cheers mate.

Carlton


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

Hi,

I keep on the getting the message that the following is invalid outside
procedure:

With Worksheets("Sheet1")

Any help would be appreciated.

Cheers

Carlton


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

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" <[email protected]> wrote in message
news:[email protected]...
> Hi,
>
> I keep on the getting the message that the following is invalid outside
> procedure:
>
> With Worksheets("Sheet1")
>
> Any help would be appreciated.
>
> Cheers
>
> Carlton
>
>
> *** Sent via Developersdex http://www.developersdex.com ***

Bob,

That worked fine.

Is there any chance you could help me out with the other request I
posted on this group? It that post I asked whether if someone could show
me how to program excel to remove blank rows in an spreadsheet.

Thanks again.

Carltoln

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

You posted that it works okay.

--
HTH

Bob Phillips

"Carlton Patterson" <[email protected]> wrote in message
news:[email protected]...
> Bob,
>
> That worked fine.
>
> Is there any chance you could help me out with the other request I
> posted on this group? It that post I asked whether if someone could show
> me how to program excel to remove blank rows in an spreadsheet.
>
> Thanks again.
>
> Carltoln
>
> *** Sent via Developersdex http://www.developersdex.com ***