Извиняюсь, я протупил немного. работает. Спасибо !!

Всё равно не меняет...

Здравствуйте.  
У меня почему-то не срабатывает ReplaceFormat на изменение цвета:  
   With Application  
       .FindFormat.Interior.ColorIndex = 3  
       .ReplaceFormat.Interior.ColorIndex = 35  
   End With  
Может подскажите что у меня не верно? Я перед этим уже и специально прописал изменений нескольких клеток на ColorIndex = 3 (думал, вдруг цвет не тот)- красит, но потом всё равно не меняет.  
Заранее благодарен!

Спасибо, Владимир.