Приведенный ниже код VBA работает на моем домашнем ноутбуке (Excel 2016), но не на моем рабочем (Excel 2010), ошибка «438»

Question

Sub GetFileCopyData()

   Dim Fname As String
   Dim SrcWbk As Workbook
   Dim DestWbk As Workbook

   Set DestWbk = ThisWorkbook

   Fname = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Select a File")
   If Fname = "False" Then Exit Sub
   Set SrcWbk = Workbooks.Open(Fname)

   SrcWbk.Sheets("Projects Register").Range("A1:V500").Copy DestWbk.Sheets("ProjectsDelivery").Range("A2,V500")

   SrcWbk.Close False
End Sub