Hej. Har lite problem med ett makro, det stannar vid "Sheets("Med datum")………..och visar felkod "Det gick inte att spara dokumentet".... Har hittat makrot men har inte lyckats modifiera det rätt. Jag är ingen expert på makro så jag är tacksam för all hjälp. En liten förklaring till vad jag vill att makrot ska göra: Skriva ut ett specifikt blad. Spara ett specifikt blad till PDF, med namn enligt cell H2 och B3-E3. (Det finns flera blad i samma excelbok). Spara samma blad till en egen excelbok med samma namn som PDF. Öka värdet i cell H2 med +1. Radera värde i ett antal celler. Spara den öppna excelboken under sitt befintliga namn. Stänga excelboken. Sub SaveInvoiceBothWaysAndClear() Dim NewFN As Variant ' Create the PDF First NewFN = "C:\aaa\PDFInvoices\Inv" & Range("H2,B3:E3").Value & ".pdf" Sheets("Med datum").ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False ' Next, Save the Excel Sheet Sheets("Med datum").Copy NewFN = "C:\aaa\Inv" & Range("H2,B3:E3").Value & ".xlsx" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close ' Increment the invoice number Range("H2").Value = Range("H2").Value + 1 ' Clear out the invoice fields Range("B3:E3").ClearContents Range("G3:H3").ClearContents Range("B4:H4").ClearContents Range("C5:D5").ClearContents Range("F5:H5").ClearContents Range("A6:H23").ClearContents Range("C25:D25").ClearContents Range("C26:D26").ClearContents ActiveWorkbook.Save ActiveWorkbook.Close End Sub