Input box to select the column impacted by a macro

Hi all,

my current macro is:

Formula:

Sub SSNReplace()

    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

    Range("C1").Select

    ActiveCell.FormulaR1C1 = "SSN"

    Range("C2").Select

    ActiveCell.FormulaR1C1 = _

        "=LEFT(RC[-1],3)&""-""&MID(RC[-1],4,2)&""-""&RIGHT(RC[-1],4)"

    Range("C2").Select

    Selection.AutoFill Destination:=Range("C2:C5285")

    Range("C2:C5285").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Columns("B:B").Select

    Application.CutCopyMode = False

    Selection.Delete Shift:=xlToLeft

End Sub

I'm looking to set up an input box for me to be able to select the column that has the criteria I'm adding the function to.

The above macro adds a new column to the right of the target column (which holds an SSN that has no dashes), names it, takes cell 2 of that column, writes a formula to add dashes, drags it down to populate the rest of the cells in the range, copies/pastes as values, and then deletes the row it fed from so it becomes the column holding an SSN.

I'm trying to make this a quick access button because this is a function I use extremely often. I'd love to have an input box precede the macro and request which column I'm looking to target (in this case column B).

Any suggestions? I have no concept of how to do this.