Получение 424 Ошибка выполнения, объект требуется

Question

Пожалуйста, помогите с ошибкой кода 424 ниже

Public counter As String 

Private Sub Workbook_WindowActivate(ByVal Wn As Window) 
    If ActiveSheet1.Name = Sheet2.Name Then 
     If counter = 0 Or counter = Null Then 
      Call LLP_Hide 
     End If 
    End If 
End Sub 

Answer 1

Удалить 1 из ActiveSheet1.

Если counter предназначен для подсчета его должно быть объявлено как Integer, а не String.

В любом случае, эта часть кода также вызывает ошибку: counter = 0. Замените его на counter = "0" или измените тип counter.

Public counter As Integer 

Private Sub Workbook_WindowActivate(ByVal Wn As Window) 
    If ActiveSheet.Name = Sheet2.Name Then 
     If counter = 0 Then 
      Call LLP_Hide 
     End If 
    End If 
End Sub