GoToEnd Macro

[Phil H]

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

 

[Paul C]

The screen updating being off is one issue. The scroll does nothing with
this off

try something like this

Sub GoToEnd()
Application.ScreenUpdating = False
ActiveCell.SpecialCells(xlLastCell).Select
r=activecell.row
Application.ScreenUpdating = True
Cells(r,1).select
ActiveWindow.ScrollColumn = 1

End Sub

 

[Per Jessen]

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]

Paul, Getting "variable not defined" error. Thanks, Phil

 

[Phil H]

Paul, I inserted Dim r as Interger and it works (form another macro). Thanks
for the help. Phil