Spalte automatisch festlegen

Hallo zusammen,
ich habe folgendes Makro für doppelte in einer Spalte farblich darzustellen.
Ich möchte gern mit einer Eingabebox die gewünschte Spalte auswählen ?
Bin nicht so fit.

Public Sub Doppelte_in_Spalte()
Dim Z As Long
     Z = Range("A2").End(xlDown).Row
         ActiveSheet.Range(Cells(3, 5), Cells(Z, 5)).Select

 Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
End Sub