Sure, but why bother to ask?

--
Regards,
Tom Ogilvy


"Iceman Solope " wrote in
message ...
This code works fine


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

Sub SearchAndReplace()
Range("D1").Select ' or any Cell
Selection.End(xlDown).Select 'Goes down to the last Cell with content
(also possible with UP)
ActiveCell.Offset(1, 0).Range("D1").Select 'Goes one row deeper
If ActiveCell.Value = "" Then
ActiveCell.Value = "Che perro"
End If
End Sub

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


By the end of this code run, I am on an active cell that is on the last
empty cell (the ones that I changed), now I want to go to the first
column, in the row where I am. could any know how can I do this?

Thnks for ur comment :)

David Garcia


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