Выгрузка данных с другого файла через функцию VLOOKUP

[zhastalap]

Добрый день всем, Подскажите хочу взять данные с открытого excel файла "plan", помогите разобрать синтаксис кода, что не так

Код: (vb)

Sub zhas() 
Dim i As Long, f As Long, s As String, n As Long, sh As Worksheet, skm As Workbooks 
Set skm = Workbooks("plan.xlsm") 
Set sh = Worksheets("ТРУ") 
For i = 2 To 7 
For f = 2 To 5 
n = sh.Rows(1).Find(what:=Cells(1, f).Value).Column 
Cells(i, f) = Application.VLookup(Cells(i, 1).Value, skm.sh.Range("A:G"), n, False) 
Next f 
Next i 
MsgBox "Конец!", vbInformation, "Конец" 
End Sub 

Спасибо всем

[Юрий М]

Комментарий модератора

Код следует оформлять соответствующим тегом - ведь есть же специальная кнопка для этого! Кроме того - кросс на Планете

[Дмитрий Щербаков(The_Prist)]

skm.sh.Range("A:G")

вот это не так. Нет такого обращения к листам.

Код: (vb)

Set skm = Workbooks("plan.xlsm")   
Set sh = skm.Worksheets("ТРУ")

а потом уже просто:

Код: (vb)

sh.Range("A:G")