Проверить заполнение ячеек перед выполнением макроса, и вывести сообщение если ячейка пустая - VBA

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

Здравствуйте, подскажите, пожалуйста как можно перед выполнением макроса проверить заполнены ли ячейки и сделать следующее... если ячейка А1 пустая - вывести "сообщение" и

прекратить выполнение макроса.

если ячейка А1 не пустая, проверить ячейку B1 (пустая или не пустая). если ячейка В1 пустая - вывести "другое сообщение" и

прекратить выполнение макроса.

если ячейка В1 не пустая - выполнить основной код макроса. примечание: Ячейки объединенные (А1 и В1 крайние левые ячейки)

Решение задачи: «Проверить заполнение ячеек перед выполнением макроса, и вывести сообщение если ячейка пустая»

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

                            Sub PreMacroCheck()
    If IsEmpty(Range("A1")) Then 'Если ячейка "A1" пустая...
        MsgBox "сообщение" 'Выводим сообщение.
        End 'Прекращаем выполнение макроса.
    Else 'Иначе, если ячейка "A1" не пустая...
        If IsEmpty(Range("B1")) Then 'Проверяем ячейку "B1"...
            MsgBox "другое сообщение" 'Выводим другое сообщение.
            End 'Прекращаем выполнение макроса.
        End If 'Иначе, если ячейка "B1" не пустая, завершаются все If...
    End If
End Sub 'и управление передается основной процедуре.
 
Sub ОсновнаяПроцедура()
    PreMacroCheck
    '...
    'Debug.Print "Основная процедура выполнена."
End Sub
                        