Eduard Caballero respondió:
Prueba esto Private Sub CommandButton1_Click() ActiveSheet.Select buscar = InputBox("Coloque la palabra a buscar", busqueda) Set resp = Cells.Find(What:=buscar, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows,...