Ошибка: метод 'значение' объекта 'range' failed - входная динамическая формула

Question

Цель моего кода - ввести формулу в ячейку. Он вытаскивает путь, имя и рабочий лист рабочей книги с одной страницы и использует его в другой ячейке (в WS щелкнула макрокоманду) для поиска значений. Когда я запускаю свой код, я получаю ошибку: метод 'значение' объекта 'range' failed Я смотрел на проблемы других людей с этим, но не нашел решения.

Sub EquipmentRecord() 

Dim CalPath As Variant 
Dim CalWB As Variant 
Dim CalWS As Variant 
Dim FullCalPath As Variant 

CalPath = Worksheets("Document Properties").Range("H16") 
CalWB = Worksheets("Document Properties").Range("H17") 
CalWS = Worksheets("Document Properties").Range("H18") 
FullCalPath = "'" & CalPath & "[" & CalWB & "]" & CalWS & "" 

ActiveCell.Offset(1).EntireRow.Insert 
ActiveCell.Offset(1).EntireRow.Select 

Range("F" & ActiveCell.Row).Value = ("=VLOOKUP(RC[-1]," & FullCalPath & "!R1C1:R100C26,13,FALSE)") 

End Sub 

Answer 1

FullCalPath = "'" & CalPath & "[" & CalWB & "]" & CalWS & "" 

по-видимому, отсутствует одинарную кавычку между двойными кавычками в конце

FullCalPath = "'" & CalPath & "[" & CalWB & "]" & CalWS & "'"