Hi

Try this:

Sub GoToEnd()
Application.ScreenUpdating = False
Cells(ActiveCell.SpecialCells(xlLastCell).Row, 1).Select
ActiveWindow.ScrollColumn = 1
Application.ScreenUpdating = True
End Sub

Regards,
Per

"Phil H" skrev i meddelelsen
...
I need the screen to show the last row of data, with cell A of that row
selected - but this macro isn't doing it. Can someone help?

Sub GoToEnd()
Application.ScreenUpdating = False
ActiveCell.SpecialCells(xlLastCell).Select
ActiveWindow.ScrollColumn = 1
Application.ScreenUpdating = True
End Sub