Having the user specify a column when running a macro

Hi All,

I have a very simple macro that I use to highlight duplicates in a column...

Sub test()
'
' test Macro
' Macro recorded 8/21/2008 by Corey G. Garner
'

'
    Range("A1").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=COUNTIF(A:A,A1)>1"
    Selection.FormatConditions(1).Interior.ColorIndex = 6
    Range("A1").Select
    Selection.Copy
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

In this example, the macro is applied to column A. Is there some way that I could have a user be prompted for which column they wish to check for duplicates when they run the macro? Thanks in advance.

-Corey

Sub test()
     Dim colSelector As String
     colSelector = InputBox("Enter a column letter")
     Worksheets("Sheet1").Columns(colSelector).Select
End Sub

Hi corey

Try this:

Sub test()
Dim cor As String
cor = InputBox("Enter a column letter")
    Range(cor & "1").Select
        With Selection
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=COUNTIF(" & cor & ":" & cor & "," & cor & "1)>1"
        End With
    Selection.FormatConditions(1).Interior.ColorIndex = 6
        Range(cor & "1").Select
            Selection.Copy
                Columns(cor & ":" & cor).Select
                    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Of course you can change the name of the variable to anything you want