Помогите дописать макрос

[Neo007]

Подскажите, пожалуйста, как дописать Module 3 в приложенном файле так, чтобы если ячейка C6 в листе Vendor не заполнена, то выдавалось сообщение типа: "Укажите компанию!"? И еще если по выбранной компании на листе Vendor, отсутствует какая-либо информация о ней в листе Счета, то завершался макрос следующим сообщением: "Информация о данной компании отсутствует"?

[tolikman]

exit sub - для выхода из макроса

if sheets("vendor").range("C6")=empty then
    msgbox "Укажите компанию"
    exit sub
end if

With sheets("Счета").Range("H4:H5000")
    dim c
    Set c = .Find(sheets("vendor").range("A6"), LookIn:=xlValues)
    If c Is Nothing Then
         msgbox "Информация о данной компании отсутствует"
         exit sub
    End If
End With

[Neo007]

Спасибо еще раз! Выручил