Если вы хотите восстановить изображение экрана для пользователя после того, как макрос изменил вид окна, иногда вы можете просто активировать ячейку, которая была активной ячейкой при запуске макроса. Это не всегда удается.

Следующий пример кода восстановит положение окна, как это было при запуске макроса:

Dim aRow As Long, aColumn As Integer, aRange As String ' global variables

Sub RememberWindowPosition() ' run this before making changes

With ActiveWindow

aRow = .ScrollRow

aColumn = .ScrollColumn

End With

aRange = Selection.Address

End Sub

Sub RestoreWindowPosition() ' run this to restore position in the window

Range(aRange).Select

With ActiveWindow

.ScrollRow = aRow

.ScrollColumn = aColumn

End With

End Sub