Hvis du vil gendanne skærmbilledet for brugeren, efter at en makro har ændret vinduesvisningen,
du kan nogle gange bare aktivere cellen, der var den aktive celle, da makroen startede. Dette er ikke altid vellykket.
Følgende eksempelkode gendanner vinduespositionen, ligesom den var, da makroen startede:
Dim aRow As Long, aColumn As Integer, aRange As String 'globale variabler Sub RememberWindowPosition ()' kør dette, før du foretager ændringer med ActiveWindow aRow = .ScrollRow aColumn = .ScrollColumn End With aRange = Selection.Adress End Sub Sub RestoreWindowPosition () 'run dette for at gendanne position i vinduesområdet (aRange) .Vælg med ActiveWindow .ScrollRow = aRow .ScrollColumn = aColumn End With End Sub