Adriel Ortiz Mangia respondió:
[Hola Valorar ++excelente para finalizar si tienes dudas consulta Te paso la macro Sub buscar() p = False Set h1 = Sheets("Hoja1") For Each h In ThisWorkbook.Sheets If h.Name <> "Hoja1" Then h.Select Set b = h.Range("B7:F38").Find(h1.[E3],...