Macros buscar valor

[alexmtz]

Hola a Todos, estoy haciendo una macro que me busque un valor, pero supongo que me faltan datos, la macro que ya tengo me busca numeros pero por ejemplo si busco un 1 el 10 me lo considera como tal, alguien me puede ayudar, necesito que haga una busqueda de dato exacto, gracias de antemano, les escribo el que ya tengo, tengo un cuadro donde el usuario escribe el numero:

Private Sub cmdAceptar4_Click()
On Error GoTo lineaerror
Range("A1").Activate
'inicia la busqueda en la columna A
[a1:a1010].Find(What:=txtBusqueda, After:=ActiveCell, MatchCase:=True, SearchFormat:=True).Activate
'si encontro el valor se posiciona
ActiveCell.Offset(0, 0).Select
'pregunta si la posicion del valor buscado esta vacio
If Selection.Offset().value <> "" Then
'si no esta vacia le dice k ya hay registro
MsgBox "Esta etiqueta ya fue capturada", vbExclamation, "PARABAR"
Else
MsgBox "adelante con la captura"
End If
Exit Sub
'este es para ver si no existe la etiqueta registrada
lineaerror:
MsgBox "Etiqueta no Registrada"
End Sub

[alexmtz]

je, ya encontre la solucion, solo le agregue esto al buscador, espero le sirva a alguien mas
[a1:a1010].Find(What:=txtBaja, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate