Select range in Excel to print to Pdf and send by Outlook

Hello,

I´m really noobie in  Excel Vba but i really want a Macro that allows me to select a range in Excel, print that selection to Pdf and send it by Outlook.

I managed to achieve most of it (modified some code found in websites) but i´m missing the following and since i´m not a programmer i stuck....

I´m still missing this:
Important to me
- Choose the range in the sheet to print to Pdf (it can be on the Vba code, but i would prefer a sheet cell reference)
- Choose the name of the sheet to print, because this macro can be useful for other sheets i have ((it can be on the Vba code, but i would prefer a sheet cell reference)

Not so important:
- Choose the default computer path to save the document, for example "c:\pdf_prints\"  . I would prefer to write the path in a excel cell, it´s more flexible to use in another sheets
- Is there a way of deleting the pdf file? Just send it in the email.

I sent the file in attachement. Can someone help please?

Code below:

1. Sub Save_as_pdf_and_send()
2. Dim xSht As Worksheet
3. Dim xFileDlg As FileDialog
4. Dim xFolder As String
5. Dim xYesorNo As Integer
6. Dim xOutlookObj As Object
7. Dim xEmailObj As Object
8. Dim xUsedRng As Range
9.  
10. Set xSht = ActiveSheet
11. Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
12.  
13. If xFileDlg.Show = True Then
14. xFolder = xFileDlg.SelectedItems(1)
15. Else
16. MsgBox ActiveSheet.Range("n9") & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Must Specify Destination Folder"
17. Exit Sub
18. End If
19. 'xFolder = ActiveSheet.Range("n9") 'Not working properly
20. xFolder = xFolder + "\" + ActiveSheet.Range("n10") + ".pdf" 'xSht.Name + ".pdf"_Can´t_have_bars
21.  
22. 'Check if file already exist
23. If Len(Dir(xFolder)) > 0 Then
24. xYesorNo = MsgBox(xFolder & " already exists." & vbCrLf & vbCrLf & "Do you want to overwrite it?", _
25. vbYesNo + vbQuestion, "File Exists")
26. On Error Resume Next
27. If xYesorNo = vbYes Then
28. Kill xFolder
29. Else
30. MsgBox "if you don't overwrite the existing PDF, I can't continue." _
31. & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Exiting Macro"
32. Exit Sub
33. End If
34. If Err.Number <> 0 Then
35. MsgBox "Unable to delete existing file. Please make sure the file is not open or write protected." _
36. & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Unable to Delete File"
37. Exit Sub
38. End If
39. End If
40.  
41. Set xUsedRng = xSht.UsedRange
42. If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Then
43. 'Save as PDF file
44. xSht.ExportAsFixedFormat Type:=xlTypePDF, FileName:=xFolder, Quality:=xlQualityStandard
45.  
46. 'Create Outlook email
47. Set xOutlookObj = CreateObject("Outlook.Application")
48. Set xEmailObj = xOutlookObj.CreateItem(0)
49. With xEmailObj
50. .Display
51. .to = ActiveSheet.Range("n5")
52. .CC = ActiveSheet.Range("n6")
53. .Subject = ActiveSheet.Range("n7")
54. .HTMLBody = "<font face=" & Chr(34) & "Calibri" & Chr(34) & " size=" & Chr(34) & 4 & Chr(34) & ">" & "Good day dear Master," & "<br> <br>" & ActiveSheet.Range("n8") & "<br> <br>" & signature & "</font>"
55. .Attachments.Add xFolder
56. If DisplayEmail = False Then
57. '.Send
58. End If
59. End With
60. Else
61. MsgBox "The active worksheet cannot be blank"
62. Exit Sub
63. End If
64. End Sub