Изменить масштаб всех листов документа - VBA

Формулировка задачи:

Кто ищет, тот найдёт

Много перерыл, много перепробовал. Нашёл. Делюсь кодом. Код устанавливает масштаб всех листов документа с помощью ScrollBar, кроме нескольких листов, и отображает текущее значение масштаба.

Private Sub SB_ZOOM_Change()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If Not (ws.Name = "Сумма" Or ws.Name = "Форма управления") Then
        ws.Select
        ActiveWindow.Zoom = SB_ZOOM.Value
        End If
    Next ws
    With ThisWorkbook.Sheets("Форма управления")
        .Range("A7").Value = "Масштаб листов " & SB_ZOOM.Value & "%"
        .Activate
    End With
End Sub

Решение задачи: «Изменить масштаб всех листов документа»

textual
                            Листинг программы 
                        

                            Private Sub Workbook_Open()
    Dim i&
    For i = 1 To Sheets.Count
        Sheets(i).Activate
       ActiveWindow.Zoom = 90
    Next
End Sub
                        