循环文件错误

Question

在行B中我有一个代码列表，在H2中我有一个文件夹路径，其中包含这些列出代码的所有文件。

我正在尝试遍历此列表，激活相应的文件，将值复制并粘贴到原始文件中的相应选项卡中。虽然我似乎无法使这个代码工作。

有人可以告诉我如何修复它吗？

Sub Master_Recipe()

Dim MainLoop As Integer
Dim WB As String
Dim WBmain As Workbook
Dim Fac As Integer

Set WBmain = ActiveWorkbook

    For MainLoop = 2 To 14
        Fac = WBmain.Sheets("List").Range("B" & MainLoop).Value
        Set WB = Application.Workbooks.Open(WBmain.Sheets("List").Range("H2").Value & Fac & " - Recipe Book") --Object Required error here
        WB.Activate

        WB.Sheets("New Recipe").Range("C:G").Copy
        WBmain.Sheets("Fac").Range("C:G").Paste

    Next MainLoop

End Sub