Opening latest version of file and then doing vlookup in that file

**Norie** · 12-11-2012, 09:06 AM

Try something like this, change the destination of the formula as required.

 Set wbVS = Workbooks.Open(myDir & "\" & strFilename)
 
 strFormula = "=INDEX('[" & wbVS.Name & "]VS UK'!$C$27:$C$39,MATCH(VLOOKUP(VLOOKUP(D12&E12,'2013'!$G$3:$J$119,4,FALSE),'" & wbVS.Name & "]VS UK'!$C$27:$C$39,1),'" & wbVS.Name & "]VS UK'!$C$27:$C$39,0)+1)"

  ThisWorkbook.Worksheets("Sheet1").Range("A1").Formula = strFormuila