Se você deseja restaurar a imagem da tela para o usuário após uma macro ter alterado a visualização da janela,
às vezes você pode simplesmente ativar a célula que era a célula ativa quando a macro foi iniciada. Isso nem sempre é bem-sucedido.
O código de exemplo a seguir restaurará a posição da janela exatamente como estava quando a macro foi iniciada:
Dim aRow As Long, aColumn As Integer, aRange As String 'variáveis globais Sub RememberWindowPosition ()' execute isto antes de fazer alterações com ActiveWindow aRow = .ScrollRow aColumn = .ScrollColumn End With aRange = Selection.Address End Sub Sub RestoreWindowPosition () 'run isso para restaurar a posição na janela Range (aRange) .Selecione com ActiveWindow .ScrollRow = aRow .ScrollColumn = aColumn End With End Sub