Si desea restaurar la imagen de la pantalla para el usuario después de que una macro haya cambiado la vista de la ventana,
a veces puede simplemente activar la celda que era la celda activa cuando se inició la macro. Esto no siempre tiene éxito.
El siguiente código de ejemplo restaurará la posición de la ventana tal como estaba cuando se inició la macro:
Dim aRow As Long, aColumn As Integer, aRange As String 'variables globales Sub RememberWindowPosition ()' ejecute esto antes de realizar cambios Con ActiveWindow aRow = .ScrollRow aColumn = .ScrollColumn End With aRange = Selection.Address End Sub Sub RestoreWindowPosition () 'ejecutar esto para restaurar la posición en el rango de la ventana (aRange) .Seleccione con ActiveWindow .ScrollRow = aRow .ScrollColumn = aColumn End With End Sub