Macro Vlookup antoher book

[vinzent]

Sorry, mi English is poor, but a i try to explain

I have one file called "NewCommit", I need the dates from another file called OldCommit Column ShipDate (Column I).
These dates will be in the Column I in NewCommit

I have this code, but error message appears

[COLOR=#141414][FONT=Consolas]Sub abrirArchivo()[/FONT][/COLOR]
'open oldcommitstrArchivo = Application.GetOpenFilename( _        
FileFilter:="Excel Files (*.xlsx), *.xlsx", _        
FilterIndex:=1, _        Title:="Elegir Commit anterior")        
If strArchivo = False Then Exit Sub        
Workbooks.OpenText FileName:=strArchivo        
Application.ScreenUpdating = False'vlookupWindows("NewCommit.xlsx").ActivateDim LR As LongLR = Range("A" & Rows.Count).End(xlUp).Row    
Range("R1") = "Formula"    
Range("R2:R & LR").FormulaR1C1 = _        
"=VLOOKUP(RC[-3],[OldCommit.xlsx]Raw_Data!R1C1:R34C9,9,FALSE)" 
[COLOR=#141414][FONT=Consolas]End Sub[/FONT][/COLOR]

Thanks!