Макросы и функции VBA

Макрос "Откат"

Пробегает по всем листам книги от последнего к первому, на каждом устанавливает курсор в ячейку "A1" и видимую часть листов возвращает в верхний левый угол.

Вместо "Лист1" нужно вписать имя первого листа книги.

Целесообразно назначить для выполнения кода комбинацию клавиш "Ctrl+A" и запускать его каждый раз при необходимости или перед сохранением файла "Ctrl+S".

Sub Откат()
    Dim sh As Worksheet, iVisible
    Application.ScreenUpdating = False
    For Each sh In Worksheets
    iVisible = sh.Visible: sh.Visible = xlSheetVisible
    Application.GoTo sh.Range("A1"), True
    'ActiveSheet.Outline.ShowLevels RowLevels:=2, ColumnLevels:=2 'развернуть группировки
    'ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1 'свернуть группировки
    sh.Visible = iVisible
    Next
    Application.ScreenUpdating = True
    Worksheets("Лист1").Activate
End Sub