Hello,

I have done this from code file before but with form values and had no problem. Now I need to perform a vlookup between 2 workbooks in code but cannot get the result to come over. please can some lovely person try to help. many thanks in advance.

Code:
' Set RANGE TO LOOK AT AS RANGE --------------
Dim oRangeToCheck As Range
ActiveWorkbook.Sheets("Weekly Shipped Details").Select
Set oRangeToCheck = Range("$I$5:$I$1000")
'------------------------------------------------
'Set the cell where the data will be returned to-------------
Workbooks("Shipment Report.xls").Activate
Dim oResult As Range
Set oResult = ActiveSheet.Range("$J2").Value
'------------------------------------------------------------
' SET STRING VARIABLE AS CONTAINER WE WANT TO CHECK -----------
Dim oCheck As String
oCheck = ActiveSheet.Range("I2").Value
'-------------------------------------------------------------
oResult = Application.WorksheetFunction.VLookup(oCheck, oRangeToCheck, 1, 0)