Excel VBA Макросы. Sub or Function not defined.

[Посетитель]

Не понимаю, в чем может быть проблема. VBA выделяет Sheet (2 строка):

Private Sub Worksheet_Activate()
    If Sheet("Лист1").Range("A2").Value = "м" Then
        ' ...
    Else
        ' ...
    End If
End Sub

[Администратор]

Вместо Sheet, нужно использовать Sheets.

[Посетитель]

Ой. Большое спасибо!!!