How do I create a pdf file containing more than one worksheet?

[OaklandJim]

I have a workbook that contains two worksheets that I want to include in one pdf. I'm using code below that works well for one worksheet.

Sub SaveActiveSheetAsPDF()
    
    Call SaveAsPDF(ActiveSheet)

End Sub

Sub SaveAsPDF(wsSheet As Worksheet)

    Dim sFileSpec As String
    
    Dim sFileName As String
    
    Dim sClientName As String
        
    sFileName = [Client_LastName] & ".pdf"
    
    sFileSpec = Application.ActiveWorkbook.Path & "\" & sFileName
    
    wsSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFileSpec

End Sub

 

[OaklandJim]

I found what I need on-line

    vAns = MsgBox("Save both worksheets?", vbYesNo + vbInformation, "Saving a pdf file.")
    
    If vAns = vbYes _
     Then
     
        Worksheets("Result Medical").Select
        Worksheets("Result Drugs").Select (False)
     
    End If