removing aol addresses

[jspinx]

hello everyone
i have an email database in excel and i want to remove the over 400 email addresses by aol. is there a macro that can do this?

[Kenneth Hobson]

If you select the range with addresses and run this macro, it may work for you. If it finds a match, it will delete the row.

Sub RemoveAOLs()
Dim selRange As Range
Dim cell As Range

Set selRange = Selection

For Each cell In selRange
  If InStr(1, LCase(cell.Value), "aol.com") > 1 Then cell.EntireRow.Delete
Next cell
End Sub

[jspinx]

thanks for your help!

[TSteel]

Hello Kenneth,

I attempted this and failed.
I get a Compile error
and sometimes a code break error
Any thoughts?

[arlu1201]

TSteel,

Why not open your own thread? This thread is nearly 5 yrs and its not likely the respondent will reply back on this one.

[TSteel]

OK, thank you, arlu1201

[TSteel]

Hi arlu,
I am new at this.
How do I start a new thread.
thanks,
Steel

[TSteel]

Hi Arlu,
I figured out how to post the new thread.
thanks,
S