Michael this should do the job.

Just change the "For n = 1 to 10" to the required rows.

Sub Text_to_number()

For n = 1 To 10
If IsNumeric(Range("A" & n).Value) = True And Range("A" & n).Text _
< "" And Range("A" & n).HasFormula = False Then
Range("A" & n) = Val(Range("A" & n))
End If
Next

End Sub


--
Peter81
------------------------------------------------------------------------
Peter81's Profile: http://www.excelforum.com/member.php...o&userid=25353
View this thread: http://www.excelforum.com/showthread...hreadid=388353