Задача на упр.стр-ру For Each-In

[Кнопка77]

Ребят, извините, что немного повторяюсь...
Снова не могу найти ошибку...

Задача:
Написать процедуру.
Описать переменную ws как объектную, found-логическую.
С пом.упр.стр. For Each-In проверить наличие в активной рабочей книге листа с назв "q". Если лист найден то переменной found присвоить значение true.
С помощью ф-и msqbox() на основе значения переменной found выдать сообщение о наличии или отсутствии в книге листа с именем "q"


Sub proc1()
Dim WS As Worksheet, Found As Boolean
For Each WS In Worksheets
If WS.Name = q Then
Found = True
MsgBox "В книге имеется лист с назв. 'q' "
Else
MsgBox "В книге отсутствует лист с назв. 'q' "
End If
Next
Found = False
End Sub

По этому коду не обнаруживает лист и выдаёт сообщения столько раз сколько листов в книге...

[was3110]

Sub proc1()
Dim WS As Worksheet, Found As Boolean
For Each WS In Worksheets
If WS.Name = "q" Then
Found = True
MsgBox " В книге имеется лист с назв. 'q' "
End If
Next
If Not Found Then MsgBox " В книге отсутствует лист с назв. 'q' "
Found = False
End Sub

[Кнопка77]

Спасибо Вам огромное!