Dim rngData As Range, rngCell As Range
Set rngData = .Range("A1:A10")
For Each rngCell In rngData
.Value = Val(.Value)
.NumberFormat = "0"
Above would work - Provided you have the range of extracted numbers from text in column A from rows 1 to 10.