Make Text to Numbers Code More User Friendly

[mrmmickle1]

Rick,

You are incredible. THanks so much for your efforts. I sampled the code and it of course works perfectly for my purposes. I was wondering... I have no purpose to speed this macro up but, just for good practice. If I wanted the same end result is it feasible to delete this portion of code?

  Col.NumberFormat = "General"

[Rick Rothstein]

Rick,

You are incredible. THanks so much for your efforts. I sampled the code and it of course works perfectly for my purposes. I was wondering... I have no purpose to speed this macro up but, just for good practice. If I wanted the same end result is it feasible to delete this portion of code?

  Col.NumberFormat = "General"

Yes, you can remove that line... it is left over from a previous test. You might want to consider using snb's code instead, though... besides being more compact, it also includes an error handler as well (although I like to turn the error handler off afterwards by putting an

On Error GoTo 0

statement at the end).

[mrmmickle1]

Snb/Rick,

Thank you both. I appreciate your time. The final product I am using looks like this:

  Sub FormatTexttoNumbers()
    Dim Col As Range
    On Error Resume Next
    Set Col = Application.InputBox("Please select a column...", Type:=8)
    Set Col = Columns(Col.Cells(1).Column)
    Col.NumberFormat = "0.00"
    Col.Value = Col.Value
  On Error GoTo 0
End Sub

I tried to use Snb's code for a shorter solution but it didn't seem to change the format, it seemed to be the same problem as before. The formatting wasn't changing. Does this look like a good solution? I am unfamiliar with error handling. I have only used it in one macro I have written. Is it considered proper to put the error statement below the Dims or should it come before all statements at the beginning of the macro?