ВПР в макросе (где-то ошибка)

[Флина]

Добрый вечер!

Помогите, пожалуйста, мучаюсь уже неделю.
Мне надо прописать функцию впр.
Вот код

Sub Ìàêðîñ2()

    Dim Cell As Range: Application.ScreenUpdating = False
    For Each Cell In Sheets("Ëèñò3").[AC2:AC100]
        Cell.FormulaR1C1 = "=VLOOKUP(RC[-4]&Trade,Ëèñò3!R2C1:R1000C25,19,0)"
        If IsError(Cell) Then Cell = "no"
    Next
End Sub

Не знаю как прописать вот эту часть. (RC[-4]&Trade)

Если оставляю RC[-4], то формула работает.
А так не работает RC[-4]&Trade.
В чем ошибка?

[Флина]

Sub Ìàêðîñ2()

    Dim Cell As Range: Application.ScreenUpdating = False
    For Each Cell In Sheets("Ëèñò3").[AC2:AC100]
        Cell.FormulaR1C1 = "=VLOOKUP(RC[-4]&R2C24,Ëèñò3!R2C1:R1000C25,19,0)"
        If IsError(Cell) Then Cell = "no"
    Next
End Sub

[Флина]

Sub Ìàêðîñ2()

Dim Cell As Range: Application.ScreenUpdating = False
For Each Cell In Sheets("Лист3").[AC2:AC100]
Cell.FormulaR1C1 = "=VLOOKUP(RC[-4]&Trade,Лист3!R2C1:R1000C25,19,0) "
If IsError(Cell) Then Cell = "no"
Next
End Sub

[kuklp]

Вы бы кусок файла выложили и не надо было бы неделю мучиться. Но вижу, легких путей не ищете...
Ну попробуйте:
Cell.FormulaR1C1 = "=VLOOKUP(RC[-4]" & Trade & ",Лист3!R2C1:R1000C25,19,0) "
откуда нам знать, что такое Trade...