filo

Sub test1()
''find last cell in active column
ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select
End Sub


Gord Dibben Excel MVP

On Mon, 11 Apr 2005 12:15:03 -0700, "filo666"
wrote:

is there a function that locate me at the last writed cell in a column (I
thought about: sendkeys ^ {end} but with this it goes to the last column and
row)

also the same function but for rows

pd. I want functions, sendkeys works but I don't like to use it because the
structure of the program is difficult to understand with sendkeys....

TIA