Printing multiple sheets to individual pdf files simultaneously?

Paste this code into a module and run it.

Sub TabsPDF()

'Declare variables
Dim mydir As String
Dim sh As Worksheet
Dim oldactivesheet As Worksheet

Application.ScreenUpdating = False

'Store a reference to the active sheet
Set oldactivesheet = ActiveSheet

'Prompt the user for a directory to store the PDF files
With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = Application.DefaultFilePath & "\"
    .Title = "Please select a location to store your PDF files."
    .Show
    If .SelectedItems.Count = 0 Then
        MsgBox "Cancelled"
        Exit Sub
    Else
        mydir = .SelectedItems(1) & "\"
    End If
End With
        

'Loop through each tab
For Each sh In Worksheets
    sh.Activate
    
        'Create PDF file and save to mydir
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            mydir & sh.Name, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            False
Next sh

Application.ScreenUpdating = True

'Reactivate the original active sheet
oldactivesheet.Activate

MsgBox "All PDF files have been created and stored in " & mydir & "."

End Sub

Hope this helps.
_____________________________
[1] If this reply was helpful, click the star to the left.
[2] If this reply answered your question, mark this thread as [SOLVED].