I you're trying to select the last non-blank cell in the column then this
would work:

Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select

ht,

Doug


"R.VENKATARAMAN" wrote in message
...
i have to write
activecell.end(xldown).end(xldown).end(xldown).sel ect

is there easier way of writing this repeated functions.