Проверить, если лист пустой - VBA

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

Добрый день подскажите пожалуйста, как будет выглядеть макрос, который проверит пустой ли лист. а именно по 1ой колонке (A): если лист "Лист1" в колонке А - не содержит никаких значений, то ..... условие1... если содержит, то .... условие2...

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

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

                            Sub Procedure_1()
 
    Dim rngFind As Excel.Range
    
    'What:="?" - знак вопроса в данном случае - это специальный символ.
    'LookIn:=xlFormulas - в ячейке может быть пусто, а вот в формулах
        'может что-то быть. Поэтому ищем в формулах.
    Set rngFind = ActiveSheet.Columns("A").Find(What:="?", LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    
    'Если в какой-то ячейке в формуле содержится хоть один символ,
        'то ячейке, в которой найден этот символ, будет дано имя "rngFind".
    'Иначе, в переменной "rngFind" будет текст "Nothing".
    If rngFind Is Nothing Then
        'Если нужно, чтобы текст отображался в кавычках,
            'нужно вместо одной кавычки, сделать две кавычки.
        MsgBox "Столбец ""A"" пуст.", vbInformation
    Else
        MsgBox "В столбце ""A"" есть данные.", vbInformation
    End If
    
End Sub
                        