Make Text to Numbers Code More User Friendly

[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