VBA to Convert text to numbers slow

[Eddy2]

Hi
I am using the following code to convert text to numbers. However, it is rather slow. Any idea how to speed it up? Cheers!

(part of a longer code)

With ThisWorkbook.Sheets("Lager").Activate


Range("C3:C1000").Select


On Error Resume Next

For Each xCell In selection
If IsNumeric(xCell) = True And IsEmpty(xCell) = False Then
xCell.Value = CDec(xCell.Value)
Else
End If
Next xCell

End With
End Sub

 

[Joe4]

Why not just use Text to Columns to do the whole column at once?
I.e.,

    Columns("C:C").NumberFormat = "General"
    Columns("C:C").TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

 

[Eddy2]

Didn't think og this method. Cheers!

Why not just use Text to Columns to do the whole column at once?
I.e.,

    Columns("C:C").NumberFormat = "General"
    Columns("C:C").TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True