Есть переменная z

Какой функцией ее можно проверить на предмет - есть ли в массиве А1:В366
значение равное z (числовое или символьное)

Тупо перебирать значения на соответсвие не хочется однака!

Есть ли что-то более радостное, о гуру VBA?

Проблема в том, что запуск кода, полученного из макроса нормально перебирает значения (подставляет переменную, проверяет на соответствие, если соответствие найдено - делает нужную операцию) но если он не находит соответствие в массиве - то все грохается

Workbooks("FileRNMprepareAll.xls").Activate
Columns("F:F").Select
Selection.Find(What:=Z, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True).Activate

If ActiveCell = Z Then
Workbooks("FileRNMprepareAll.xls").Activate

ActiveCell.Next.Select
Selection.Copy
Workbooks.Open c
Cells(1, 6).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close

Else

Cells(1, 10).Select
ActiveCell.FormulaR1C1 = "dddddd"

End If

Это кусок цикла в котором меняется переменная Z - вот в случае отсутствия соответствия выделяется цветом

Selection.Find(What:=Z, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True).Activate

Типа здесь ошибка. Как от нее увернуться при использовании такой функции - непонятно, поэтому я пытаюсь понять - или надо дописать условия к этой функции или лучше использовать что-то другое

2 Big-Duke

Класс! Я добавил эту проверку и оно заработало!

Балшой такой Пасиб!