Огромное спасибо всем за помощь.

{quote}{login=Юрий М}{date=17.11.2010 11:35}{thema=}{post}Если требуется обработать ВСЕ такие коды, то макрос нужно будет немного подправить.{/post}{/quote}  
Да. Необходимо обработать все строки с заданіми кодами, т.е. каждому коду подставить определенное значение.

{quote}{login=Hugo}{date=17.11.2010 11:19}{thema=}{post}Sub tt()  
For Each cc In [a2:a24]
If cc.Value = "01-04" Then cc.Offset(, 3) = "XXX"  
Next  
End Sub  
 
Это перебором, без поиска, и в строго заданном диапазоне.  
Зато просто.{/post}{/quote}  
Да, спасибо, а если диапазон заранее не известен?

Уважаемые Гуру.  
Люди мы не местные помогите чем можете.  
По поиску не смог найти нужное решение. С макросом меняющим значения в одном столбце по заданому критерию решил сам, а как прописать код, что бы поиск проходил в одном столбце а замена проходила в другом столбце решить не могу. С VBA только начинаю знакомство.  
Например поиск значения "01-04" в столбце "код програмы" и замена значения в столбце "название" на значение "ХХХ".  
Таблица имеет несколько тысяч строк, ВПР не подходит как и ПОИСК и Замена.