Hej, kan någon hjälpa mig få till en kod? jag vill att namnet på filen skall bli ett cellvärde enligt nedan. men får felmeddelande på koden Önskat namn :Worksheets("KALKYL INTERN ").Range("B3") & Format(Now, "dd-mmm-yy h-mm") & ".pdf" nedan är koden som inte funkar att lägga in ovan text efter filename ub sparapdf() ' ' sparapdf Makro ' sapra bladen som pdf ' ' Dim FileName As String Sheets(Array("KALKYL INTERN ", "OFFERT AGRO-MASKINER, ")).Select Sheets("KALKYL INTERN ").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ "C:\Users\gustav.nyblom\Desktop\KALKYLER & OFFERTER\KALKYL & OFFERT VERKTYG AGRO.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False End Sub

Hej hej

Det är inget fel på raden du vill klistra in, det ska fungera klockrent men beror lite på vad du skriver i Cell B3 på sheetet "kalkyl intern".
Du kan förenkla det genom att lägga in var filen ska sparas redan i koden. Just nu behövs hela filnamnet och sökvägen till filen läggas in i cell B3
Om du skriver C:\Users\gustav.nyblom\Desktop\KALKYLER & OFFERTER\KALKYL & OFFERT VERKTYG AGRO i cell B3, och lägger in din kod direkt efter filnamn. Så kommer resultatet att bli en fil sparad på platsen:

C:\Users\gustav.nyblom\Desktop\KALKYLER & OFFERTER\
(katalogerna måste såklart finnas på din dator)

Med filnamnet:

KALKYL & OFFERT VERKTYG AGGRO 24-nov-17 10-45.pdf

Excel brukar ogilla om du försöker skapa ett filnamn över 30 tecken (ovan användes 45 tecken) så det kan vara värt att tänka på.