G Guest Sep 11, 2007 #2 Hi, This retuens the last value in column A Sub stantial() myvalue = Range("A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row).Value End Sub This selects the last value on column A Sub stantial() Range("A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row).Select End Sub Mike
Hi, This retuens the last value in column A Sub stantial() myvalue = Range("A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row).Value End Sub This selects the last value on column A Sub stantial() Range("A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row).Select End Sub Mike
P papou Sep 11, 2007 #3 Hello Use the macro recorder: Tools, Macro, New Macro Input a name for your macro Validate with OK Press both Ctrl and End keys Stop the recorder Check the vba code written in the new module created. HTH Cordially Pascal
Hello Use the macro recorder: Tools, Macro, New Macro Input a name for your macro Validate with OK Press both Ctrl and End keys Stop the recorder Check the vba code written in the new module created. HTH Cordially Pascal
G Guest Sep 11, 2007 #4 to select the last occupied cell in column A: n = Cells(Rows.Count, "A").End(xlUp).Row Cells(n, "A").Select
to select the last occupied cell in column A: n = Cells(Rows.Count, "A").End(xlUp).Row Cells(n, "A").Select