Sub busca() Set mirango = Range(ActiveCell, ActiveCell.Cells(Selection.Rows.Count, Selection.Columns.Count)) loquebusco = Application.InputBox(prompt:="¿qué buscas?", Type:=3) Set c = mirango.Find(loquebusco, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do Range(c.Address).Select MsgBox ("Se econtró en " & c.Address) Set c = mirango.FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End Sub