Convert numbers stored as text to numbers?

Question

How can I convert numbers stored as text to numbers?

I have tried setting:

ActiveSheet.Range(\"H154\").NumberFormat = \"General\"

B

Answer 1

A general technique is to Copy PasteSpecial, Multiply by 1

In code, something like this:

Sub ConvertToNumber()
    Dim rng As Range
    Dim cl As Range
    Dim rConst As Range

    ' pick an unused cell
    Set rConst = Cells(1, 4)
    rConst = 1

    Set rng = Cells.SpecialCells(xlCellTypeConstants)
    rng.NumberFormat = "General"
    rConst.Copy
    rng.PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply

    rConst.Clear
End Sub