Hi Dave,

Try:
'===========
Public Sub Example2()
Cells(Cells.Rows.Count, _
ActiveCell.Column).End(xlUp).Select
End Sub
'<<===========

PS: Desert?!

---
Regards,
Norman



"Desert Piranha"
<Desert.Piranha.1yxlhz_1132718402.6354@excelforu m-nospam.com wrote in
message news:Desert.Piranha.1yxlhz_1132718402.6354@excelfo rum-nospam.com...

Hi all,
I know how to get the last row with the column "hard coded" IE:

Code:
--------------------
Sub Example1()
Cells(Cells.Rows.Count, "A").End(xlUp).Select
End Sub

--------------------
But instead of hard coding a column i want to select the column.
something like:
Code:
--------------------
Sub Example2()
Cells(Cells.Rows.Count, "With Selection").End(xlUp).Select
End Sub

--------------------
It dosen't work of course. Any direction on this would be appreciated.
Thx
Dave


--
Desert Piranha
------------------------------------------------------------------------
Desert Piranha's Profile:
http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=487496