Asignando una Formula a una Celda Activa

Hola,

Por favor me podrian ayudar con esta macro no se donde esta el error:

Sub VendorName()

Dim x As Range

Set x = ActiveCell.Offset(0, -1)

'Busco el Archivo VendorList.xls
Workbooks.OpenText Filename:= _
"C:\Users\ecasang\Documents\01-Ericsson\Varios
\VendorList.xls", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:_
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1,
1), _
TrailingMinusNumbers:=True

'Cambio de Ventana (Siempre debe haber solo dos archivos)
ActiveWindow.ActivateNext
ActiveCell.Formula = "=INDEX(VendorList.xls!$B$4:$G$1500,MATCH( &
x &,VendorList.xls!$F$4:$F$1500,0),4 )"
End Sub

me salta error en la última línea:
ActiveCell.Formula = "=INDEX(VendorList.xls!$B$4:$G$1500,MATCH( &
x &,VendorList.xls!$F$4:$F$1500,0),4 )"

ademas tambien debo agregarle para que el libro VendorList.xls no
quede abierto.

espero me puedan ayudar.

Saludos,
Angelo V.-