Luis Mondelo respondió:
Tu macro quedaría así: Sub pdf() for each hoja in sheets hoja.select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Alumno\Desktop\informes\" & Range("b5").Value, Quality:= _ xlQualityStandard, IncludeDocProperties:=False,...