Sub convertStrings()
Dim cell as Range
for each cell in Range("B2:B50")
if isnumeric(cell.value) then
cell.offset(0,5).Value = cdbl(cell.value)
end if
next
End sub
--
Regards,
Tom Ogilvy
"jhahes" wrote in
message ...
Can someone please help me with the following!
I just want to do this
Start in Cell b2
activecell.offset(0,5).value = cdbl(Activecell.value)
then go to b3
b4
b5
all the way until row 500.
I am trying to convert these text strings to number format without
retyping them.
Thanks
Josh
--
jhahes
------------------------------------------------------------------------
jhahes's Profile:
http://www.excelforum.com/member.php...o&userid=23596
View this thread: http://www.excelforum.com/showthread...hreadid=474780