A piece of my code, which I got from Net.
Private Sub cmd2Members_VLOOKUP_Click()
Dim lookFor As Range
Dim srchNameRange As Range
Dim FoundOut As String
Dim book1 As Workbook
Dim book2 As Workbook
Dim book2Name As String
book2Name = "Members.xls
Dim book2NamePath As String
book2NamePath = "D:\" & book2Name
Set book1 = Transactions.xls")
MyFyl = Workbooks.Open (book2NamePath)
Set book2 = Workbooks(book2Name)
Set lookFor = book1.Sheets(1).Cells(2, 3) 'value to find in Row 2 and Col 3
Set srchNameRange = book2.Sheets(1).Range("B:C")
FoundOut = Application.VLookup(lookFor, srchNameRange, 2, False)
msgbox "FoundOut=" & FoundOut
End Sub