Esteban RG respondió:
En la ventana de código de la hoja pon esta sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Cells = 10 Then Cells(1, "C") = Cells(1, "C") + 1 ArchPDF = ThisWorkbook.Path + "\MilibroPDF" + Str(Cells(1,...