VBA Protect All not working at end of code

[Samselite]

The attached a VBA code runs fine creates PDf, Clears sheet but at the end the Error Handler comes up "Could not Create PDF file" even though it has created one. When I close he Error window the Work sheet is not Protected. What can I do to fix This?

Sub PDFActiveSheet()
'unprotect all sheets
Unprotect_All
Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler


Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "yyyymmdd\_hhmm")


'get active workbook folder, if saved
strPath = wbA.Path
If strPath = "" Then
strPath = Application.DefaultFilePath
End If
strPath = strPath & ""


'replace spaces and periods in sheet name
strName = Replace(wsA.Name, " ", "")
strName = Replace(strName, ".", "_")


'create default name for savng file
strFile = strName & "_" & strTime & ".pdf"
strPathFile = strPath & strFile


'use can enter name and
' select folder for file
myFile = Application.GetSaveAsFilename _
(InitialFileName:=strPathFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Select Folder and FileName to save")


'export to PDF if a folder was selected
If myFile <> "False" Then
wsA.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'confirmation message with file info
MsgBox "PDF file has been created: " _
& vbCrLf _
& myFile
End If
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
ActiveWindow.SelectedSheets.PrintOut
End If
Range("A4:M19").Select
Selection.ClearContents
Range("A21:M23").Select
Selection.ClearContents
Range("A27:M35").Select
Selection.ClearContents
Range("A38:M72").Select
Selection.ClearContents
'protect all sheets
Protect_All


exitHandler:
Exit Sub
errHandler:
MsgBox "Could not create PDF file"
Resume exitHandler
End Sub

 

[Leith Ross]

Hello Samselite,

Comment oout the On Error GoTo ErrHandler line in your code. Run the macro and tell me which line it stops at.

 

[Samselite]

Hi Leith
I ran that after Comment out that line and got the error Window pop up " Run-time error '1004' Application-defined or object - defined error "