Update screen with: "Application.ScreenUpdating = False"

[Maurizio]

Is it possible to update screen (scrolling e see active cell to center of the screen) but using "Application.ScreenUpdating = False".
I'm often using:

Application.GoTo Reference:=Worksheets("DB").Cells(1, 1).End(xlDown).Offset(-10, 0), Scroll:=True
Cells(65536, 1).End(xlUp).Offset(1, 0).Select

but if data is < of 10 I get bug and it's bad.
Any best code?!

 

[Legacy 11273]

Try this.

Re your first line of code :-

With Worksheets("DB").Cells(1, 1).End(xlDown)
If .Row < 10 Then
Application.GoTo Reference:=.End(xlUp), Scroll:=True
Else
Application.GoTo Reference:=.Offset(-10, 0), Scroll:=True
End If
End With

Re your second line of code, there's nothing that will create an error.