I gave you code the does what you describe.

this code won't work. to the best of my knowledge, you can't replace an
empty cell with a value. Also, if you could, you would fill up the whole
column.

--
Regards,
Tom Ogilvy



"Iceman Solope " wrote in
message ...
I see that,

I have and specific question, How can I put into my code the "empty"
value, because this statement works, but only when the cells have the
specific value, and know, I think it shuld be works on the first cell
that doesn't have the value.


Code:
--------------------

Sub Busqueda()
Sheets("hola").Columns(2).Find _
(What:="hola", After:=[B1]).Replace _
What:="hola", Replacement:="Richard"
End Sub

--------------------


thnks for ur fruitfull help
David


---
Message posted from http://www.ExcelForum.com/