Make Text to Numbers Code More User Friendly

[Rick Rothstein]

Try using this macro instead of the one you posted...

Sub FormatTextAsNumbers()
    Dim Col As Range
    Set Col = Application.InputBox("Please select a column...", Type:=8)
    Set Col = Columns(Col.Cells(1).Column)
    Col.NumberFormat = "General"
    Col.NumberFormat = "0.00"
End Sub