Boa tarde srs!

Estou bolando uma macro de cadastro de clientes, ela está quase 100%, porém gostaria de criar um impeditivo caso o CNPJ do cliente já esteja cadastrado.

Segue Plan e Anexo, a sub está no mod2 e a userform1 é a que diz respeito à ela!

A pessoa abre uma UserForm, preenche Nome, CNPJ, Ag e Conta e clica em "Cadastrar Cliente", que puxa a seguinte sub:

Sub Cadastrar_Cliente()

Dim i As Integer

i = 2

    Do Until Sheets("Base").Cells(i, 1) = ""
i = i + 1
    Loop

    If Sheets("Base").Cells(i, 1) = "" Then
        Sheets("Base").Cells(i, 1) = UserForm1.NomeEmpresa.Text
        Sheets("Base").Cells(i, 2) = UserForm1.NumeroCNPJ.Text
        Sheets("Base").Cells(i, 3) = UserForm1.NumeroAgencia.Text
        Sheets("Base").Cells(i, 4) = UserForm1.NumeroConta.Text
    End If
    
    MsgBox "Cliente Cadastrado."
    
End Sub

O CNPJ do cliente está em UserForms1.NumeroCNPJ.Text

Poderiam me ajudar?

Meu agradecimentos!