Here is the file I've been playing around with: Help.xlsm
if the value is found in the specified range it will msgbox the value in the cell to the right
Hopefully this is what you were trying to accomplish.
Let us know if you need more help
sheet1 corresponds with sub Test
and will find the values in a column
sheet2 corresponds with sub TestTwo
and will find the values in the worksheet
Sub Test()
Dim MyStrs As Variant
MyStrs = Array("ABC", "DAA", "FEE", "FDC", "EEE")
Sheet1.Select '<<<<<<<<<<< Look at sheet 1
With Sheet1.Columns(3).Cells '<<<<<<<<<<< Here is where I say look in column 3 on sheet 1
For I = LBound(MyStrs) To UBound(MyStrs)
Set C = .Find(MyStrs(I))
If Not C Is Nothing Then
MsgBox C & " " & C.Offset(0, 1).Value
End If
Next I
End With
End Sub
Sub TestTwo()
Dim MyStrs As Variant
MyStrs = Array("ABC", "DAA", "FEE", "FDC", "EEE")
Sheet2.Select '<<<<<<<<<<< Look at sheet 2
With Sheet2.Cells '<<<<<<<<<<< Here is where I say look at all used cells in sheet 2
For I = LBound(MyStrs) To UBound(MyStrs)
Set C = .Find(MyStrs(I))
If Not C Is Nothing Then
MsgBox C & " " & C.Offset(0, 1).Value
End If
Next I
End With
End Sub