Sub Text_Nbr()
Dim C As Range
Application.ScreenUpdating = False
For Each C In Sheets("Sheet1").Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
If IsNumeric(C.Value) Then
C.NumberFormat = "0"
C.Value = CDbl(C.Value)
End If
Next C
Application.ScreenUpdating = False
End Sub