thank you MaR i will try that now.

"MaR" wrote:

Try to use Bob's text with ToolsMacroVisual Basic Editor

"Tina Jones" wrote:

bob i have no idea what that even means. sorry im not to excel savoy. please
be patient with me, are those commands or values that i type somewhere like a
command? where would i use what you told me to use?
thank you very much too!
-TINA

"Bob Phillips" wrote:

Does this do it

Sub FormatData()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 1 Step -1
If Not IsNumeric(Cells(i, "A").Value) Then
Rows(i).Delete
End If
Next i

End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Tina Jones" <Tina wrote in message
...
first off thanks you guys for taking the time to help. i have got alot of
info from the forums. ok here is my latest adventure! i am trying to
create a
list of phone numbers for my boss. he asked me to pull out every phone
number
on his phone bills and make a list using excel. now his bills are in PDF
formatt and i have purchased a PDF to excel converter and it works great,
my
issue is once im in excel i want to extract or copy all the phone numbers,
is
that possible? so far ive just been able to delete alot of unwanted text
and
contect that carries over from the PDF and narrow it down to only 2 colums
(A
and B) but there is still a few things i dont need like text that reads
"incomig" ect and ive been deleting row by row and sometimes there are
1200+
rows and thats just taking way to much time. im thinking there has to be a
way that once i have all the data in excel i can just copy all the phone
numbers in the doc? im using office pro 03, can someone help this girl
out?
thanks