Make Text to Numbers Code More User Friendly

[Rick Rothstein]

Rick,

I always appreciate you taking the time to help me with code. I just tried the above code you provided again. I was certain that I must have missed something but, it still seems unsuccessful at changing numbers stored as text to two decimal number format. Is there something I am missing? I am supposed to enter columns in this format correct? $C:$C...

Can you post a copy of your workbook with the unprocessed data in it so I can try the code out on your actual data in order to see what is happening (or not happening)?

[mrmmickle1]

Rick,

Of course. Here is an example of what I am having trouble getting to change. The green tick marks in column C, as well as the formatting seem not to be changing as expected. Thanks again for the help.

-Matt

[Rick Rothstein]

Rick,

Of course. Here is an example of what I am having trouble getting to change. The green tick marks in column C, as well as the formatting seem not to be changing as expected. Thanks again for the help.

It looks like this code may be working correctly...

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"
    Col.Value = Col.Value
End Sub