litacan Gómez respondió:
Te paso lo que yo tengo y me funciona.. adáptalo atus datos Sheets("Archivo").Select Sheets("Archivo").Activate Range("HZ3") = "=ROMAN(RC[-1])" Range("HY3") = InputBox(" Pon el año en el casillero ", " Filtro de Año ") i = Range("HZ3").value For Each...