Sub test()
Range("G2").Select
Do
If Isnumeric(Trim(ActiveCell.Value)) Then ActiveCell.Value
Trim(ActiveCell.Value) * 1
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell)
End Su
--
Kaa
-----------------------------------------------------------------------
Kaak's Profile:
http://www.excelforum.com/member.php...nfo&userid=751
View this thread:
http://www.excelforum.com/showthread.php?threadid=55725