Excel VBA ошибка 429 - копировать и вставлять данные

Question

У меня есть некоторый базовый код, который я пытаюсь импортировать из переменной с именем folder / workbook

это работало, но сегодня я получаю сообщение об ошибке:

excel vba error 429- active x..etc

есть идеи почему?Это моя целевая рабочая книга, с которой я начинаю - нормально открывается другая рабочая книга, затем, когда пытается найти целевую рабочую книгу, я получаю сообщение об ошибке.

Sub ubstransi()
Application.DisplayAlerts = False
 Sheets("ubs trans").Select
Cells.Select
Selection.ClearContents
Dim Wb1 As Workbook
Dim filepath As String


filepath = Sheets("control").Cells(1, 5).Value


Application.ScreenUpdating = False
Set Wb1 = Workbooks.Open("S:\Operations\FTP\20190924\5446890_FMCM_"     &      filepath & "_(76098464).xls") 'change this as u need

Wb1.Sheets("Cash Movement").Range("A1:x100").Copy


ThisWorkbook.Sheets("ubs trans").Range("a1").PasteSpecial     Paste:=xlPasteAll
Application.ScreenUpdating = True

Wb1.Close SaveChanges:=False
ThisWorkbook.Sheets("control").Select

End Sub