Получение листа по индексу вызывает ошибку в макросе vba

Question

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

Public Sub CreateSimpleModel() 

    Dim reportSheet As Worksheet 
    MsgBox ThisWorkbook.Sheets.Count 

    reportSheet = ThisWorkbook.Sheets(1) <-- Here I get the error 

End Sub 

В появившемся окне сообщения показано, что в книге есть листы. Ошибка object variable or with block not set Любая помощь будет оценена по достоинству.

Answer 1

Вы должны использовать "Set", если вы хотите ссылочного Рабочего

Public Sub CreateSimpleModel() 

    Dim reportSheet As Worksheet 
    MsgBox ThisWorkbook.Sheets.Count 

    Set reportSheet = ThisWorkbook.Sheets(1) 

End Sub