Я получаю ошибку – требуется объект

Я пытаюсь написать макрокод, который на основе ввода ячейки перемещается на один из двух листов (сервис или событие). Я получаю сообщение об ошибке «Требуемый объект»

Любая помощь для решения этой проблемы будет оценена по достоинству.

Sub GoSheetNext() Dim abcd As Integer abcd = ActiveWorksheet.Cells(4, 2).Value If abcd > 10 Then Sheets("service").Select ElseIf abcd < 10 Then Sheets("event").Select End If End Sub 

Просто ActiveWorksheet не существует, это ActiveSheet :

Как упоминалось @John Coleman, вы должны добавить Option Explicit в верхней части своего модуля, это заставит вас объявить все ваши переменные, прежде чем сможет запустить код. Поэтому он обнаружит вашу проблему здесь, потому что он не узнал бы ActiveWorksheet ! 😉

 Sub GoSheetNext() Dim Test_Value As Integer Test_Value = ActiveSheet.Cells(4, 2).Value If Test_Value > 10 Then Sheets("service").Select ElseIf Test_Value < 10 Then Sheets("event").Select End If End Sub 
Давайте будем гением компьютера.