Hi LoveCandle,

Try:

Sub Blank()
Cells(1, ActiveCell.Column).End(xlDown)(2).Select
End Sub

---
Regards,
Norman



"LoveCandle" wrote
in message ...

Hi everybody,

I have the follwoing code which works on going to the first blank cell
in column A ONLY ..

I want to adjust it to go to the first blank cell in the current cloumn
. wether it is A or B or what ever.


Code:
--------------------
Sub Blank()
Cells(Range("A1").CurrentRegion.Rows.Count + 1, 1).Select
End Sub
--------------------


I hope my question is clear.

Thank you for all.


--
LoveCandle
------------------------------------------------------------------------
LoveCandle's Profile:
http://www.excelforum.com/member.php...o&userid=28612
View this thread: http://www.excelforum.com/showthread...hreadid=486621