Make Text to Numbers Code More User Friendly

[snb]

or

Sub M_snb_002()
  on error resume next
  Application.InputBox("Please select a column...", Type:=8).EntireColumn.NumberFormat = "0.00"
End Sub