Maybe just this...
Sub Find_Multiple_Values()
Dim Answer As VbMsgBoxResult
 Answer = MsgBox("Are you sure you want to run the macro?", vbYesNo, "Run Find_Multiple_Values Macro")
 If Answer = vbYes Then
 Dim rngToSearch As Range
 Dim wks As Worksheet
 Dim rngFound As Range
 Dim WhatToFind As Variant
 Dim iCtr As Long
 Dim DestCell As Range
 Dim iLoop As Long
 Dim lookupRng As Range
 Dim mycell As Range
 Dim yourQueryString As String
Set wks = ActiveSheet
'Data Range
 Set rngToSearch = Application.InputBox("Select Data Range", "Obtain Range", Type:=8)
 MsgBox "The cells selected were " & rngToSearch.Address
'Lookup Values Range
 Set lookupRng = Application.InputBox("Lookup Values", "Select Lookup Values", Type:=8)
 MsgBox "The cells selected were " & lookupRng.Address
'To capture Range info and concatenate
 For Each mycell In rngToSearch '.Rows(2).Cells
 If mycell.Text = lookupRng.Text Then
 mycell.Interior.Color = RGB(255, 255, 0)
 End If
 Next
 End If
 End Sub
Dave