Заливка ячеек макросом по условию - VBA

Формулировка задачи:

Доброго времени суток. случилось не предвиденное... Не работает цикл. Я выделяю несколько строк на листе потом обрабатываю эти строки последовательно сверху-вниз макросом. Мне нужно в пределах выделения выкрашивать ячейку первого столбца после того как очередная стока обработана. Перепробовал разные циклы, но выкрашивается либо только первая строка соответствующая условию, либо весь столбец в пределах выделенного. Для примера добавляю файл с макросом. Нужно выделить все строки и запустить макрос. Выкрашивать хотя-бы по введенному номеру. Пожалуйста помогите разобраться?

Решение задачи: «Заливка ячеек макросом по условию»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Заливка()
Dim Zak As Range 'Object
Dim Zakaz As String
Zakaz = InputBox("Введите номер заказа (15 или 11 или 88 в данном случае)")
'Set Zak = Selection.Columns(1).Find(Zakaz)
           For Each Zak In Selection.Columns(1).Cells
    If Trim(Zak) = Zakaz Then
            Zak.Interior.Color = 5296274
    Exit For
    End If
Next
End Sub