Eduard Caballero respondió:
Prueba con lo siguiente. Private Sub CommandButton1_Click() Dim busqueda2 As String Dim busqueda1 As String Worksheets("Hoja1").Activate Set resp = Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole,...