Save All Worksheets As Individual Workbooks In a Special Folder in PDF format

I am trying to save all the worksheets as individual workbook in PDF format in a special folder with cell value. But it is giving me syntax error in below code. Can anyone help me to resolve this issue please.

Showing Error

 .SaveAs FolderName _
    & "\Invitation Letter - " & .Sheets(1).Range("E4").Value & FileExtStr, ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False,OpenAfterPublish:=False

Original Complete Code

'Working in 97-2007
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim sh As Worksheet
Dim DateString As String
Dim FolderName As String
    With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
    End With

'Copy every sheet from the workbook with this macro
Set Sourcewb = ThisWorkbook
'Create new folder to save the new files in
        DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
            FolderName = Sourcewb.Path & "\" & Sourcewb.Name & " (Invitation Letter) " & " " & " " & DateString
                MkDir FolderName
                    'Copy every visible sheet to a new workbook
                    For Each sh In Sourcewb.Worksheets
                'If the sheet is visible then copy it to a new workbook
                If sh.Visible = -1 Then
            sh.Copy
        'Set Destwb to the new workbook
        Set Destwb = ActiveWorkbook
    'Determine the Excel version and file extension/format
    With Destwb
    End With
'Change all cells in the worksheet to values if you want
        If Destwb.Sheets(1).ProtectContents = False Then
            With Destwb.Sheets(1).UsedRange
                .Cells.Copy
                    .Cells.PasteSpecial xlPasteValues
                    .Cells(1).Select
                End With
            Application.CutCopyMode = False
        End If
    With Destwb
    
   .SaveAs FolderName _
    & "\Invitation Letter - " & .Sheets(1).Range("E4").Value & FileExtStr, ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False,OpenAfterPublish:=False
    
    
        '.SaveAs FolderName _
        '& "\Invitation Letter - " & .Sheets(1).Range("E4").Value & FileExtStr, _
        'FileFormat:=51 'FileFormatNum
                    .Close False
                        End With
                            End If
GoToNextSheet:
                        Next sh
                    Response = MsgBox("You can find the files in..." & FolderName + vbCrLf + " " + vbCrLf + "Abdul Aleem - Lets Make Life Easier...", vbOKOnly + vbInformation, "Managed Care Department")
                With Application
            .ScreenUpdating = True
        .EnableEvents = True
    .Calculation = xlCalculationAutomatic
End With

Thanks for reply again i am getting an error.

Display Error:

Document not saved. The document may be open, or an error may have been encountered when saving.

I am attaching a sample file where Excel format is working fine but in the same way i need in PDF also.

I appreciate if you make necessary changes on the script posted in #1 because that scrip is making the folder where the file is running and caving the files base on cell value.

Your script is totally different from that script.

Hai Patel,

This code works perfect as per my requirement. I will test it on my original file and get back to you if i have any problem.

Hai Patel,

The script is showing error on my original file on

sh.Copy

My original file have some hidden sheets might be this is the problem. Can you help me on this issue please. I need to convert only visible sheets into PDF.

Thanks it is working on my original file also. Topic marked as solved and reputation added.