Форум по VBA и MS Office

В файле, на всех листах есть переключатели (элементы управления формы).
Переключатели привязаны к A1.

Как проверить, что на всех листах юзер установил переключатели?
Для этого достаточно анализировать ячейку A1: если в ней ноль, значит юзер не установил переключатель; если не ноль, значит юзер установил переключатель.

Если на каком-то листе юзер не поставил переключатель, макрос должен выдать сообщение и должен перейти на этот лист.

Макрос

Sub Макрос()

    Dim sh As Worksheet
   
    For Each sh In Worksheets
        If sh.Range("A1").Value = 0 Then
            sh.Select
            MsgBox "Поставьте на этом листе переключатель.", vbExclamation
            Exit Sub
        End If
    Next sh
   
    MsgBox "Вы завершили тест"
   
End Sub

[свернуть]

спасибо