Se si desidera ripristinare l'immagine dello schermo per l'utente dopo che una macro ha modificato la visualizzazione della finestra,
a volte puoi semplicemente attivare la cella che era la cella attiva all'avvio della macro. Questo non ha sempre successo.
Il seguente codice di esempio ripristinerà la posizione della finestra proprio come era all'avvio della macro:
Dim aRow As Long, aColumn As Integer, aRange As String ' variabili globali Sub RememberWindowPosition() ' eseguilo prima di apportare modifiche With ActiveWindow aRow = .ScrollRow aColumn = .ScrollColumn End With aRange = Selection.Address End Sub Sub RestoreWindowPosition() ' esegui questo per ripristinare la posizione nella finestra Range(aRange).Select With ActiveWindow .ScrollRow = aRow .ScrollColumn = aColumn End With End Sub