Asignando una Formula a una Celda Activa

hola, Angelo !

... ayudar con esta macro no se donde esta el error:
me salta error en la ultima linea:
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...

1) la formula que tratas de depositar no se puede leer por la macro, donde dices:
"=INDEX(VendorList.xls!$B$4:$G$1500,MATCH( & x &,VendorList.xls!$F$4:$F$1500,0),4 )"
deberias decir:
"=INDEX(VendorList.xls!$B$4:$G$1500,MATCH(" & x & ",VendorList.xls!$F$4:$F$1500,0),4)"

2) en el intento de formula usas la referencia: -> VendorList.xls
pero... cual es el nombre de la hoja ???

3) si el libro es un ".xls"... por que lo abres con un OpenText -???-

(probablemente) no seria necesario abrir el libro, pero...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __
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