从一个工作簿复制到另一个工作簿的代码不起作用

Question

我写了一个VBA宏来将工作簿中的范围复制到另一个工作簿上具有相同名称的工作表。任何使用工作簿的人都会根据他们所使用的项目重命名它们，工作簿名称是变量。现在，我有：

Sub Copy()

Dim vendorfilename As Variant
Dim VDS As Workbook
Dim BrProgram As Workbook

Set BrProgram = ActiveWorkbook

vendorfilename = Application.GetOpenFilename()

If vendorfilename = False Then Exit Sub
Set VDS = Workbooks.Open(vendorfilename)

BrProgram.Sheets("Vendor Data").Range("A1:AJ191").Copy _
Destination:=VDS.Sheets("Vendor Data").Range("A1")

End Sub

但是最后一行给了我“类型不匹配”。有什么想法吗？