Как исправить ошибку 400 в приведенном ниже коде VBA

Question

Приведенный ниже код является тестом для копирования данных из одного листа в другой, я получаю сообщение об ошибке 400, и я не уверен, что мне не хватает.

Sub test()
Dim TravelRequest As Workbook
Dim MainBook As Workbook
Set TravelRequest = ThisWorkbook
'Open All workbooks first:
Set MainBook = Workbooks.Open("FILELOCATIONREDACTED")


TravelRequest.Sheets("Sheet4").Range("C5").Copy

MainBook.Sheets("Sheet1").Range("A").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False

End Sub

Answer 1

У меня был код макроса в sheet1, и он работал на sheet4 (мне нужно лечь спать)