VBA Macro to convert text to number

Originally Posted by Mordred

Put this into your workbook and let me know how it goes:

Sub ConvertTextToNumber()
    Dim ws1 As Worksheet
    Dim dRng As Range, oC As Range
    
    Set ws1 = Worksheets("Sheet1")
    Set dRng = ws1.Range(ws1.Cells(4, 6), ws1.Cells(ws1.Rows.Count, 6).End(xlUp))
    For Each oC In dRng
        oC.Value = oC.Value
        oC.NumberFormat = "###0"
    Next oC
End Sub

That macro works great!

Thanks!! Solved!!