User needs to choose 2 columns on the fly

[DChambers]

I am trying to write a macro that:
When run will ask the user to choose a column in the first sheet then choose a column in the second sheet.
Will compare the data in the first cell of the first sheet to the first cell in the second sheet and color the second sheets cell red if it is not the same.

I dont know what columns will be selected beforehand, perhaps the MsgBox function could be used?

thanks
Darrell

 

[erik.van.geit]

Hi,

take a look at
InputBox (application)
see TYPEargument

Option Explicit

Sub select_in_single_column()
'Erik Van Geit
'050719 0044
Dim rng As Range

Selection(1).Select

    Do
    Set rng = Nothing
    On Error Resume Next
    Set rng = Application.InputBox(prompt:="Select a cell in the column", _
    Title:="SELECTION", Default:=ActiveCell.Address, Type:=8)
    On Error GoTo 0
    
        If rng Is Nothing Then
        Exit Sub
        Else
            If rng.Columns.Count > 1 Then
            MsgBox "please select in a SINGLE column", 48, "ERROR"
            Set rng = Nothing
            End If
        End If
    Loop While rng Is Nothing

End Sub

kind regards,
Erik