VBA EXCEL consulta los datos de la tabla a través del cuadro de texto, y si se busca o no se muestra en la etiqueta.

Código del botón Buscar:

Private?Sub?CommandButton1_Click()

If?Not?Sheet(1).Cells.Find(Me.TextBox1.Value )?¿Nada?¿Entonces?

Me.Label1.Caption?=?"Estás buscando el valor: "? &?Me.TextBox1.Value?&?" en "?&?Sheet (1) .Cells.Find(Me.TextBox1.Value).Address?&?Cell "

Else

Me.Label1.Caption?=?" no encontrado "

Fin?Si

Fin?Sub