remove hyperlinks from objects in the excel workbook using vb

The code below removes all hyperlinks in a worksheet.
To remove special types re-enable the commented out lines and amend as necessary.

Sub untested()
    ' Hyperlink types:   
    'oHyperlinkInlineShape, msoHyperlinkRange, msoHyperlinkShape.
   '---------------------------------------------------------------------------------
    For Each h In ActiveSheet.Hyperlink
        'If h.Type = "??" Then
            h.Delete
        'End If
    Next
End Sub