Error in Macrr when user hit cancel or X button

[Dedeke]

Hello,

I'm using the code below to save sheets with colored tab as pdf to a location the can choose themself.
The code is activated by a CmdBtn
So when button clicked, the standard MSO "save a"s screen opens ( see pictures also please)
When users hit cancel or X button, i get an error.
Logical i think while user interrupts the code.

Is it possible to get a message instead( something like " aborted by user" ) and at least the last part of the code is executed( hiding the colored TABS again.

Many thx already

Public Sub TabDuoCreate_PDFs()

'Maakt van alle duo een pdf van het overzicht

 Application.ScreenUpdating = False
 Call Unhide_Colored_Tabs36Duo

Dim Folder_Path As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Selecteer de gewenste folder"

If .Show = -1 Then Folder_Path = .SelectedItems(1)

End With

    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
            If ws.Tab.ColorIndex = 36 Then
                ws.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & ws.Name & ".pdf"
  
                   
    End If
       
    Next
    Call Hide_Colored_Tabs36Duo
    MsgBox "All vieuws duo saved I guess"

End Sub

 

[Joe4]

You should be able to add some error handling code, i.e. (new lines added shown in red):

Public Sub TabDuoCreate_PDFs()

'Maakt van alle duo een pdf van het overzicht

Application.ScreenUpdating = False
Call Unhide_Colored_Tabs36Duo

Dim Folder_Path As String

On Error GoTo err_check
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Selecteer de gewenste folder"
    If .Show = -1 Then Folder_Path = .SelectedItems(1)
End With
On Error GoTo 0

Dim ws As Worksheet
   
For Each ws In ActiveWorkbook.Worksheets
    If ws.Tab.ColorIndex = 36 Then
        ws.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & ws.Name & ".pdf"
    End If
Next
   
Call Hide_Colored_Tabs36Duo
MsgBox "All vieuws duo saved I guess"
   
Exit Sub


err_check:
    If Err.Number = 1004 Then
        MsgBox "Aborted by User", vbOKOnly
    Else
        MsgBox Err.numebr & ":" & Err.Description
    End If

End Sub

 

[NateSC]

If they hit Cancel or close the folder selection box, Folder_Path comes back with a "". Just test for that immediately after
If .Show = -1 Then Folder_Path = .SelectedItems(1)

If Folder_Path = "" Then
    MsgBox "Aborted by user", vbOKOnly, "Error"
    ' Do other stuff here to reset, turn screen updating back on, etc.
    Call Hide_Colored_Tabs36Duo
    Application.ScreenUpdating = True
    Exit Sub
End If

 

[Dedeke]

Thx Joe4 and NateSc
Thx for the input.
Ended up with a mix from both, playing around with the suggestions.
This code finaly did what i wanted to do

Public Sub TabDuoCreate_PDFs()

Application.ScreenUpdating = False
Call Unhide_Colored_Tabs36Duo

Dim Folder_Path As String

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Selecteer de gewenste folder"
    If .Show = -1 Then Folder_Path = .SelectedItems(1)
End With

Dim ws As Worksheet
  On Error GoTo err_check
 
For Each ws In ActiveWorkbook.Worksheets
    If ws.Tab.ColorIndex = 36 Then
        ws.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & ws.Name & ".pdf"
    End If
Next
  
Call Hide_Colored_Tabs36Duo
MsgBox "All vieuws duo saved I guess"
  
Exit Sub


err_check:
    If Folder_Path = "" Then
        MsgBox "Canceled by user", vbOKOnly
        Call Hide_Colored_Tabs36Duo
    
        
    End If

End Sub

Don't know wich to mark as solution So Joe4 ..... feel free to choose.
I'm already thankfull for both suggestions.

 

[NateSC]

You may want to turn screen updating back on inside err_check. Also, you can mark Joe4's as the answer.