Макрос не работает: «Ошибка компиляции: функция библиотеки объектов не поддерживается»

Question

Всякий раз, когда я запускаю этот макрос, я получаю:

Ошибка компиляции: функция библиотеки объектов не поддерживается "с выделенным параметром" Set ws1 = ".

Что происходит? Что-то не так?

Спасибо

Sub Airpush()
'Define your variables.
Dim ws1 As Worksheet, ws2 As Worksheet, cel As Range, i As Long

'Assign your worksheet variables.
Set ws1 = ThisWorkbook.Sheets("CAMPAIGN_PLANNER")
Set ws2 = ThisWorkbook.Sheets("REPORT_DOWNLOAD")

    'First loop through each cell in Sheet2, Column E, (start at row 2 to account
    'for header row) to get the value to find in Sheet1, Column C.
    For Each cel In ws2.Range("A2:A" & ws2.Range("A" & ws2.Rows.Count).End(xlUp).Row)

        'Then loop through each cell in Sheet1, column C. If you get a match, then
        'copy the value from Sheet2, column B, cel.row to Sheet1, Column S, i row.
        For i = 2 To ws1.Range("L" & ws1.Rows.Count).End(xlUp).Row

            If cel.Value = ws1.Cells(i, 3).Value Then
                ws1.Cells(i, 3).Offset(, 16).Value = cel.Offset(, 3).Value
                ws1.Cells(i, 3).Offset(, 15).Value = cel.Offset(, 4).Value
                ws1.Cells(i, 3).Offset(, 17).Value = cel.Offset(, 2).Value
            End If

        Next i 'loops through every used cell in Column C for all matches
    Next cel 'loop to the next cell in Sheets2, Columns E

End Sub

Answer 1

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

Спасибо всем, кто прокомментировал!