So
try something like
sub foo()
dim rng as range
dim cell as range
set rng = selection
for each cell in rng
if cell.value<""
cell.numberformat="General"
cell.value=cell.value
end if
next
end sub

----
you may consider skipping such words as 'lame' as this won't help you
getting advice


--
Regards
Frank Kabel
Frankfurt, Germany


cecil wrote:
No offence Frank, but all the advice I have gotten from you has been
shall we say lame. There is 20 ways to manually do the text to
numbers thing, I can do that. I am looking to do it with vba so I
don't have to do it manually. Thanks anyway.

----- Frank Kabel wrote: -----

Hi
one way (non-VBA):
select and empty cell and copy it
- select your imported values
- goto 'Edit - Paste Special' and choose 'Add'

--
Regards
Frank Kabel
Frankfurt, Germany


Cecil wrote:
When importing from a FoxPro database, all the charactors come
over as text. When I try to sum these numbers, it will not
sum because excel thinks they are text. Isn't there a way to
convert all these to numbers through vba?