не могу установить книгу в качестве переменной

Question

Кажется, я не могу выставить две открытые книги в качестве переменных. Я создал саб, который открывает второй, так что оба теперь должны быть открыты.

Но когда я перебираю код, я получаю:

«rn-time error'438» объект не поддерживает это свойство или метод.

Я пробовал и .Select, и Activate. Оба возвращаются с ошибками. Включили подпункт, который открывает вторую рабочую книгу, для справки.

Sub copytoMaster()

Dim wkbk As Workbook
Dim NewFile As Variant

NewFile = "C:\Users\msheppar\Desktop\new holiday project\Master Holiday Tracker.xlsm"

If NewFile <> False Then
Set wkbk = Workbooks.Open(NewFile)
End If

End Sub

Sub CopyAndPaste()

Dim wbpast As Workbook
Dim wbcop As Workbook
Dim xlastrowcopy As Long
Dim xlastrowpast As Long
Dim xlastcolumnn As Long
Dim i As Integer
Dim j As Integer
Dim r As Integer
Dim rname As String


Set wbcop = Workbooks("Holiday form (9).xlsm")

Set wbpast = Workbooks("Master Holiday Tracker.xlsm")

'For i = 1 To xlastrowcopy

wbcop = ActiveSheet
Sheets("sheet4").Select