Selected Answer
The reason I asked about the Mac was because you used the slash as a path separator in your question. In Windows it's a backslash. :-)
Try this code. The target path might be specified differently, depending upon your requirement. Please read the comments in the code.
Sub PrintToPDF()
' 24 Aug 2017
Dim Wb As Workbook
Dim SheetsToPrint As String
Dim OutputFileName As String
Dim Tmp() As String
Dim i As Integer
Set Wb = ActiveWorkbook ' specify the workbook
Tmp = Split(Wb.FullName, ".") ' separate the extension in the file name
Tmp(UBound(Tmp)) = "PDF" ' replace the extension
OutputFileName = Join(Tmp, ".") ' the output will be in the same directory
' as the workbook
On Error GoTo ErrExit
For i = 2 To 9 ' omit the first worksheet
If Len(SheetsToPrint) Then SheetsToPrint = SheetsToPrint & "|"
' an error will occur if there are less than 9
' worksheets in the active workbook
SheetsToPrint = SheetsToPrint & Wb.Worksheets(i).Name
Next i
' select the worksheets to be printed:
Wb.Sheets(Split(SheetsToPrint, "|")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=OutputFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ErrExit:
MsgBox Split("The PDF file was created successfully.|The PDF file couldn't be created.", _
"|")(Abs(Sgn(Err)))
End Sub
