Visual Basic para Aplicaciones - Ayuda con Macro... No mueve pantalla

Hola:

Tengo un archivo Excel con varios modulos.

Deseo que al abrir el libro el cursor se mueva a la celda A1 y se pueda visualizar el area de A1 a K25, sin embargo con el código que muestro a continuación NO logro que se mueva la pantalla. En el área de indicador de celda me muestra que SI se paso el cursor a A1 pero la pantalla se queda estática mostrandome de la columna Q en adelante.

Solicito puedan indicarme que estoy haciendo Mal... y como poder solucionarlo.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Range("A1").Select
Range("E13").Select
ActiveWorkbook.Worksheets("Comparables").ScrollArea = "A1:K25"
ActiveWorkbook.Worksheets("Comparables_Lin").ScrollArea = "A1:P28"
Sheets(1).Protect UserInterFaceOnly:=True
Sheets(1).EnableSelection = xlUnlockedCells
Sheets(2).Protect UserInterFaceOnly:=True
Sheets(2).EnableSelection = xlUnlockedCells
Application.DisplayAlerts = False
'Workbooks(Book).Worksheets("Comparables").Activate
End Sub

Private Sub Worksheet_Activate()
ActiveWindow.LargeScroll ToRight:=-2
Range("A1").Select
Range("E13").Select
End Sub

probá con lo siguiente

Application.Goto Range("A1"), True

Saludos, desde Baires, JuanC