Re: macro for converting number stored as "text" (or preceeded with ') to "number" formatting

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 Sub