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