Als u het schermbeeld voor de gebruiker wilt herstellen nadat een macro de vensterweergave heeft gewijzigd,
je kunt soms gewoon de cel activeren die de actieve cel was toen de macro begon. Dit is niet altijd succesvol.
De volgende voorbeeldcode zal de vensterpositie herstellen zoals deze was toen de macro begon:
Dim aRow As Long, aColumn As Integer, aRange As String ' globale variabelen Sub RememberWindowPosition() ' voer dit uit voordat u wijzigingen aanbrengt With ActiveWindow aRow = .ScrollRow aColumn = .ScrollColumn End With aRange = Selection.Address End Sub Sub RestoreWindowPosition() ' run dit om de positie in het venster te herstellen Range(aRange).Select With ActiveWindow .ScrollRow = aRow .ScrollColumn = aColumn End With End Sub