Pessoa boa tarde
Sou novo por aqui e estou meio que aprendendo vba na marra, e gostar da ajuda de vocês.

Gostaria que quando eu clicar no botão de cadastrar, faça uma busca no meu banco de dados e se tiver um nome já cadastrado nele, aparece um msgbox "Competidor já cadastrado", bloqueando esse nome de entrar no banco de dados.
Sub CadastrarCompetidor()

contador = 3

While Plan3.Cells(contador, 1) <> ""

contador = contador + 1

Wend

Plan3.Cells(contador, 1) = Plan3.Range("e4").Value

Application.ScreenUpdating = False 'Aceleração (se desejado)

'Descreva aqui todas as células desejadas (entre aspas):
Celulas = Array("e4")

cAtual = ActiveCell.Address

For i = 0 To UBound(Celulas)

Range(Celulas(i)).Select
Selection.ClearContents
Next i
Range("a3:a500").Select
ActiveWorkbook.Worksheets("Cadastro Competidor").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Cadastro Competidor").Sort.SortFields.Add Key:= _
Range("a3:a500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal

With ActiveWorkbook.Worksheets("Cadastro Competidor").Sort
.SetRange Range("A3:a500")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Range("e4").Select 'Volta à célula anteriormente selecionad

Application.ScreenUpdating = True

End Sub

Obrigado desde já