Sub or Function not defined

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

Добрый день.
Не понимаю, в чем может быть проблема. Выделяет первый Sheet (2 строка).
Private Sub Worksheet_Activate()
If Sheet("Ч").Range("F33").Value = "м" Then
Range("I21:I27").Formula = "=..."
Range("J21:J27").Formula = "=..."
Else
Range("I21:I27").Formula = "=..."
Range("J21:J27").Formula = "=..."
End If
Лист Ч - другой лист в этой книге. Точки - формулы.
Заранее спасибо!
End Sub

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

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

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

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