Друзья, подскажите как реализовать следующую задачу - есть книга, в ней 150-200 рабочих листов. Некоторые из них содержат слово "Нов" ый(ая), некоторые - нет. Мне нужно чтобы программа обработала только те, в названии которых есть это слово. Написал код, но он не работает. Что не так?

Dim a As Byte
Dim z As Byte
Dim b As String
Dim SeacrhChar As String
z = Worksheets.Count

For a = 3 To z
Sheets(a).Select
b = Sheets(a).Name

If InStr(1,a, SearchChar,1) = "Нов" Then
код обработки
Else
надо перейти на следующий лист
End if
Next

basicv, спасибо! Заработало.
Можете написать по-простому как работает функция? Справка на английском по функции InStr понимания не принесла.