replace string with vlookup value

Question

I need to replace a string of values with results from a vlookup.

I need a text box that asks the user what column would they like to replace. 

Once the user enters the column, start at row 5 to the last used row in that column.

The lookup should compare the existing text in named range "ISO" and return the value from the second column replacing the existing value

Example: If column V, it would be something like VLOOKUP(V5,ISO,2,FALSE) )

If a helper column is needed, ZZ can be used temporarily but must be cleared after running.

Answer 1

Sub Test()

    Dim r As Range

    Set r = Application.InputBox("Select a cell in the column", Type:=8)

    Set r = Range(Cells(5, r.Column), Cells(Rows.Count, r.Column).End(xlUp))

    With Range(Cells(5, "ZZ"), Cells(Cells(Rows.Count, r.Column).End(xlUp).Row, "ZZ"))

        .Formula = "=VLOOKUP(" & r.Cells(1).Address(False, False) & ",ISO,2,False)"

        r.Value = .Value

        .Clear

    End With

End Sub

Answer 2

I have a stack of Krystal IOUs that I will add this one to ;-)

Answer 3

Thanks!

When I make my first million..... 

I'm buying you a Krystal WITH cheese!