Hej Bo

Prøv dette:

' Gem som pdf
    pdfName = ActiveSheet.Range("A5")
    filePath = "C:\Users\BOA\Desktop\BL Dashboard\"

    fileSaveName = ActiveSheet.Name

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    filePath & fileSaveName _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, _
          IgnorePrintAreas:=False, OpenAfterPublish:=False

Hej Max.

De skal have samme navn som fanenavnet. Den fulde kode har du her:


Sub KopierFaneOgGemSomPdfOgSletHerefter()

'Loop
Dim counter As Integer

For counter = 1 To 2
    
'Kopier og navngiv fane
    Sheets(8).Copy After:=Sheets(8)
    ActiveSheet.Name = Sheets(3).Range("b5").Offset(counter - 1, 0)
    ActiveSheet.Range("A5").Value = Sheets(3).Range("A5").Offset(counter - 1, 0)
    
'Gem som pdf
    pdfName = ActiveSheet.Range("A5")
    ChDir "C:\Users\BOA\Desktop\BL Dashboard\"
    fileSaveName = Application.GetSaveAsFilename(pdfName, _
    fileFilter:="PDF Files (*.pdf), *.pdf")
    If fileSaveName <> False Then
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    fileSaveName _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, _
          IgnorePrintAreas:=False, OpenAfterPublish:=False
       
    End If
      
Next counter

'Slet alle faner der ligger efter den originale
Dim BoSheet As Worksheet

Application.DisplayAlerts = False

For Each BoSheet In ActiveWorkbook.Sheets

    If BoSheet.Index > 8 Then
    
        BoSheet.Delete
    
    End If
    
Next BoSheet

'Meld klar
    MsgBox "Filer gemt og klar til afsendelse"


End Sub

Mange tak!

Works like a charm!