Cursor placement by macro

[Rick37]

Hi I am a novice at vba. I am using Excel 2010. I have a workbook with 4 worksheets with sports results and I want the cursor to be left at the last row of data, at column A on each sheet. I found a piece of code to find the last row number:

Dim lastrow As Long
lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
MsgBox lastrow

Produces the correct row number for one sheet. I am trying to use this to place the cursor but can't add the column name to it.

Can this even be done?

 

[My Aswer Is This]

Try this:

Sub Goto_Last_Cell()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To Sheets.Count
        Lastrow = Sheets(i).Cells(Rows.Count, "A").End(xlUp).Row
        Application.Goto Sheets(i).Cells(Lastrow, 1)
    Next
Application.ScreenUpdating = True
End Sub

 

[Rick37]

Hey that works great. Thankyou.

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

Hey that works great. Thankyou.