VBA macro to delete rows that contain hyperlinks

[jo206]

Hi everyone,

I have just registered and have a quick question.

I want to remove entire row if it contains a word "Engineer" or "Developer" (case insensitive), I found a code that works on normal texts but not when the word is in a hyperlink.

This is only for column A. can anyone please help?

Many thanks

 

[LazyBug]

Sub jo()
Dim c As Range
    For Each c In ActiveSheet.Range("A:A")
        If c.Hyperlinks.Count > 0 And _
            (LCase(c.Value) Like "*engineer*" Or LCase(c.Value) Like "*developer*") Then
                ActiveSheet.Rows(c.Row).Delete (3)
        End If
    Next c
End Sub