VBA to send 2 sheets by email after converting to PDF

I am still a beginner to VBA in Excel. Have used it before but mostly from copying and pasting. This is one that I would love to be able to create. I have created a workbook that has about 6 or 7 sheets. Most of the time the person filling out the form will only want to send two sheets to another person. My hope is that I can create a button that has a macro that will copy those two sheets, save them as PDF and attach them in an email.

Can someone show me how to do this? Not sure if I am asking too much but if they could post the code and I could just copy it. I know that they would have to save the file somewhere before the email would open and attach the files, and for now, is there a way to have it prompt you to where to save it? If the code requires the names of the tabs, I can edit that.

If this can be done, I would be a hero around the office.

Thank you for any help you can give.

They would always be the same to worksheets. If it is possible to put them into two separate attachments that would be amazing, but if it is easier to put them together that is fine as well. That is not super important.

Thank you very much for looking to help

you have gotten me very excited. I copied the code into a new Macro and changed the sheet names to the sheet names in the workbook. When I click on the button that I added the Macro to, i get the following message

Compile Error:
Invalid or unqualified Reference.

It highlighted the below
.AllowMultiSelect = False

Thank you so much. I think this will really blow their minds. Sorry if I am making people laugh, but I work with a lot of people that are not too Excel knowledgeable.

Did I copy something wrong? Did I do something wrong?

Here you go

Sub Emailsheets()
'
' Emailsheets Macro

' With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path & "\"
If .Show <> -1 Then MsgBox "No folder selected! Exiting sub...": Exit Sub
mypath = .SelectedItems(1) & "\"
End With
Sheets("ANALYSIS").ExportAsFixedFormat 0, mypath & Sheets("firstsheetname").Name 'change to suit twice
Sheets("PROFORMA").ExportAsFixedFormat 0, mypath & Sheets("secondsheetname").Name 'change to suit twice
With CreateObject("Outlook.Application").CreateItem(0)
.to = "" 'change to suit
.CC = ""
.BCC = ""
.Subject = "Pro-Forma For - " 'change to suit
.Body = "Please see the attached Pro-Forma. Please review and let me know if you have any quesitons." 'change to suit
.Attachments.Add mypath & Sheets("ANALYSIS").Name & ".pdf" 'change to suit
.Attachments.Add mypath & Sheets("PROFORMA").Name & ".pdf" 'change to suit
.Display '.Send
End With
End Sub

'
End Sub

Thank you both for your help. It is working. However just as you asked originally, if we want this in two separate attachments or combined into one, I thought they would want them in separate, but now some are asking to be combined. So I was going offer both options. How would I add it so that both are combined?

Thank again. I am blown away by the knowledge of people like you both.

Thank you, thank you, thank you. You have made my office very happy. I really appreciate your time. Thank you again for your help and patience.