Editar macro para aviso de igualdad

De Todo Expertos.

Tengo esta macro en una plantilla, resulta que el TextBox txtCod compara los nombres escritos.

Sub ingresar_EdCli(fila As Integer, Optional OrdenarPor As String = "B")
    Dim strfila$
    Set ws = ActiveSheet
    Application.ScreenUpdating = False
    With ws
        strfila$ = .Range("A2:A25000").Find(txtCod, lookat:=xlWhole).Row
        '.Range("A" + strfila$) = txtCod 'Cod Producto No se edita
        .Range("B" + strfila$) = txtProd 'Nombre producto
        '.Range("C" + strfila$) = txtProve 'Cantidad no se edita
        .Range("D" + strfila$) = txtFactu 'Ubicacion
        .Range("E" + strfila$) = Format(DTPicker1, "mm/dd/yyyy") 'Fecha
        .Range("F" + strfila$) = CDbl(txtUbic.Value) 'Valor unitario
        .Range("G" + strfila$) = txtObser 'Observaciones
        .Range("A2:G" & fila).Sort key1:=.Range(OrdenarPor & fila) 'ordena datos
    End With
'carga ListBox
    Call BuscaCambio
    Call actualizar_lista
    Application.ScreenUpdating = True
'limpiar controles
    Call Limpar(Me)
    Buscar.SetFocus
End Sub

Quisiera que me avisara MsgBox "Ya existe este nombre en A, inserte nuevo nombre"

Si lo que se escribe ya existe en la hoja (columna A) que me avise Acepto y salga de la macro limpiando SOLO el txtCod para nueva escritura.

Creo que esta línea

strfila$ = .Range("A2:A25000").Find(txtCod, lookat:=xlWhole).Row

hay que cambiarla por otra que busque si ya existe en A el nombre escrito en txtCod

Si existe manda mensaje de adevertencia, limpia SOLO el txtCod y Acepto para Exit Sub, salir de la macro.