VBA вывести сообщение если ячейки не заполнены

[johny_03]

Две Книги "imena_f" "imena_m", когда я кликаю по кнопке с нижепреведенным кодом, находясь в книге "imena_m" и при этом ячейки G3:G все пустые, то выводит ошибку, т.е. строка

.Value = .Value

выделена желтым.
Как сделать, чтобы выводило сообщение "данные пользователем не заполнены", если все ячейки столбца G пустые.

Private Sub CommandButton1_Click()
Workbooks.Open("D:\imena_f.xls").Activate
Sheets("Лист3").Select
    ActiveSheet.Range("C3:C33").Select
    Selection.Copy
    Windows("imena_m.xls").Activate
    Range("M3").Select
    ActiveSheet.Paste
    Range("A1:B1").Select
Dim lr&
lr = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
With Range("G3:G" & lr)
    .Formula = "=VLOOKUP(M1,C$1:C$" & lr & ",1,)"
    .SpecialCells(xlCellTypeFormulas, xlErrors).Delete Shift:=xlUp
    .Value = .Value
End With
End Sub

[Казанский]

Если просто дополнить этот код, то замените ".Value = .Value" на

    On Error Resume Next
    .Value = .Value
    If Err Then MsgBox "данные пользователем не заполнены": Err.Clear

Но, может быть, другую книгу и открывать не надо? ВПР может брать данные из закрытых книг.

[johny_03]

Казанский, огромное спасибо!

Сообщение от Казанский

Но, может быть, другую книгу и открывать не надо? ВПР может брать данные из закрытых книг.

Это мысль, надо будет доработать