software

i have a list of 25,000 entries which are email addresses. how can i
check for invalid inputs like bogus numbers. Maybe like if cell
includes numbers or not email address delete row type formula.--
djranks
------------------------------------------------------------------------
djranks's Profile: www.excelforum.com/member.php...foamp;userid=3704
View this thread: www.excelforum.com/showthread...hreadid=494355Sub Test()
Dim iLastRow As Long
Dim i As Long
Dim oRegEx As Object

Set oRegEx = CreateObject(quot;VBScript.RegExpquot;)
iLastRow = Cells(Rows.Count, quot;Aquot;).End(xlUp).Row1
With oRegEx
.Pattern = quot;^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$quot;
For i = iLastRow To 1 Step -1
If Not .Test(Cells(i, quot;Aquot;).Value) Then
Rows(i).Delete
End If
Next i
End With
Set oRegEx = Nothing

End Sub--

HTH

RP
(remove nothere from the email address if mailing direct)quot;djranksquot; gt; wrote in
message ...
gt;
gt; i have a list of 25,000 entries which are email addresses. how can i
gt; check for invalid inputs like bogus numbers. Maybe like if cell
gt; includes numbers or not email address delete row type formula.
gt;
gt;
gt; --
gt; djranks
gt; ------------------------------------------------------------------------
gt; djranks's Profile:
www.excelforum.com/member.php...foamp;userid=3704
gt; View this thread: www.excelforum.com/showthread...hreadid=494355
gt;