Makro skal fortsætte hvis gem pdf annulleres

kan du ikke lade selve udskrift-rutinen ligge i en makro for sig selv, og så afslutte hoved-rutinen normalt? Så er det bare et kald med data til 'udskrift' og derefter lukke.

Desværre ikke.

Den køre igennem når jeg vælger “gem” og så afslutter den når jeg vælger “annullere” men det skal den ikke, den skal stadig køre igennem, bare uden at gemme filen, da man jo har valgt at den ikke skal gemmes alligevel.

Indsæt en label før den del af rutinen som skal fortsætte og ret så Exit Sub til

Goto label

Den løsning med Label virkede.

Der var dog lidt andre problemer med den, så har kodet den lidt om.

Nu melder den så fejl på nedenstående afsnit.

Run-time error ’448’:
Named argument not found


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        "strFileName & strPath", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True


Kan i se hvad der er forkert, undre mig lidt over at den ikke kan finde navn og placering når den køre Makro igennem.


Sub Gem_beregner_ny_1()

    ActiveSheet.Unprotect "Salg-2022!"
    ActiveWorkbook.Unprotect "Salg-2022!"
    ActiveSheet.PivotTables("Diagram").PivotCache.Refresh
    Columns("I:O").Select
    Selection.EntireColumn.Hidden = True
    Sheets("Oplysningesskema").Select
    Sheets("Udskrift").Visible = True
    Sheets("Udskrift").Select
    Columns("A:C").Select
    Range("A37").Activate
    Selection.ColumnWidth = 28
 
      Dim strFileName As String
        Dim strPath As String

        strFileName = Range("F1").Value


        With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        If .Show = True Then
        strPath = .SelectedItems(1) & "\"
        Else
        Sheets("Udskrift").Select
        ActiveWindow.SelectedSheets.Visible = False
        Sheets("Oplysningesskema").Select
        ActiveWindow.SmallScroll Down:=-3
        Range("D8").Select
            ActiveSheet.Protect "Salg-2022!"
            ActiveWorkbook.Protect "Salg-2022!"
 
                  VBA.Interaction.MsgBox "Din beregning er ikke blevet gemt", vbApplicationModal, "Beregning ikke gemt"
        Exit Sub
        End If

    End With
   
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        "strFileName & strPath", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
   
    Sheets("Udskrift").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Oplysningesskema").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("D8").Select
    ActiveSheet.Protect "Salg-2022!"
    ActiveWorkbook.Protect "Salg-2022!"
 
    VBA.Interaction.MsgBox "Din beregning er nu gemt som PDF", vbApplicationModal, "Beregning gemt"
 
End Sub