Actividad pública reciente
Ha valorado "Buena" la respuesta
Control de fin de archivo
Recorriendo desde abajo hasta encontrar la última celda con datos: finfil = Range("A65536").end(xlup).Row Recorriendo desde arriba hacia abajo: finfil = Range("A1").End(xlDown).Row Otras opciones entontrarás en la sección Macros de mi sitio. Sdos Elsa