Application.Goto Range("A1").End(xlDown).End(xlToLeft)(1, 2)
Some more code;
http://www.ozgrid.com/VBA/ExcelRanges.htm
http://www.ozgrid.com/VBA/find-dates.htm


--
Regards
Dave Hawley
www.ozgrid.com
"John" wrote in message
...
Hi Everyone,
How would I phrase this ;
Find first empty row in column A, offset to first empty cell on the same
row.
or find current date in column A, offset to first empty cell on the same
row.
I want my cursor to return to that position after I've used a macro.
Regards
John