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" wrote in message
...
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
procedu

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" 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 ***

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" wrote in message
...
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 ***