Make Text to Numbers Code More User Friendly

[mrmmickle1]

I would like to make the below code more flexible. Can someone show me a way that I can have the user input the column in a simple input box?

So instead of having to go into the VB editor a novice could change the reference easily...

Sub FormatTextAsNumbers()
    Range("Q:Q").Select 'specify the range which suits your purpose
    With Selection
        Selection.NumberFormat = "General"
        .Value = .Value
         Columns("Q:Q").Select 'Changes Selection to two decimal format
    Selection.NumberFormat = "0.00"
    End With
End Sub