Luis Mondelo respondió:
La macro quedaría así: Sub Folio() [M10] = [M10] + 1 Dim NombreArchivo As String NombreArchivo = Range("N10").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\ALLAVTAS\Documents" & NombreArchivo & ".pdf",...