Removing Hyperlinks with a macro

[Mr Roboto]

I have a worksheet that has over 5000 rows. Each row in column A has a hyperlink that I want to remove. I want to keep want is typed in the cell just remove the hyperlink. How do I create a macro that will delete the hyperlink then go to the next row and repeat until it comes to a blank cell.

 

[royUK]

Try this

'---------------------------------------------------------------------------------------
' Module    : Module1
' DateTime  : 05/11/2005 07:53
' Author    : royUK
' Website   : www.excel-it.com
' Purpose   : Remove hyperlinks
'---------------------------------------------------------------------------------------
Option Explicit

Sub deleteHLink()
    Dim rngHLinks As Range
    Dim h As Hyperlink
    
    Set rngHLinks = ActiveSheet.Range("a1", Range("a65536").End(xlUp))
    For Each h In rngHLinks
        h.Delete
    Next h
End Sub

 

[Mr Roboto]

Thanks for the reply, but it did not work.
I get a Run Time error 13 - type mismatch for the following line
For Each h In rngHLinks

 

[royUK]

Sorry, I missed a bit. you need to add .Hyperlinks as below

Option Explicit

'---------------------------------------------------------------------------------------
' Module    : Module1
' DateTime  : 05/11/2005 07:53
' Author    : royUK
' Website   : www.excel-it.com
' Purpose   : Remove hyperlinks
'---------------------------------------------------------------------------------------


Sub deleteHLink()
    Dim rngHLinks As Range
    Dim h As Hyperlink
    
    Set rngHLinks = ActiveSheet.Range("a1", Range("a65536").End(xlUp))
    For Each h In rngHLinks.Hyperlinks
        h.Delete
    Next h
End Sub