Sub don’t_pirnt_sheet()
    Dim sht
    Dim ShtName
    ShtName = Array(“aaa”, “bbb”, “ccc”) [COLOR=”#008000″]’ADD SHEET NAMES HERE NOT TO PRINT[/COLOR]
For I = 1 To Worksheets.Count
    For J = 0 To UBound(ShtName)
        If Worksheets(I).Name = ShtName(J) Then Count = 1
    Next J
    If Count = 0 Then Worksheets(I).PrintOut copies:=1
    Count = 0
Next I
End Sub

'NOTE:
'Excel processes sheets in order of appearance, 
'i.e. left-to-right tab order
'(order as you see the tab names at the bottom).

Sub printToPDF()

Dim zArray() As Variant 'declares a dynamic array

'worksheet names will be placed into a dynamic array for later use
zMax = ThisWorkbook.Worksheets.Count
ReDim zArray(1 To zMax) 'declares the array variable with the appropriate size

Application.ScreenUpdating = False
For Each z In ThisWorkbook.Worksheets
If z.Visible And z.Tab.ColorIndex = xlColorIndexNone Then
i = i + 1
zArray(i) = z.Name
End If
Next

ReDim Preserve zArray(1 To i) 'update the array with just the required sheets

'DEFINE FILENAME AND SAVE LOCATION FOR PDF FILE..
zPath = ThisWorkbook.Path & ""
zFile = "myfile.pdf"
zSaveAs = zPath & zFile

'EXPORT SELECTED SHEETS TO PDF FILE..
Sheets(zArray).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=zSaveAs, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Sheets(1).Select

End Sub

Option Explicit

'*** This UserForm requires a Public Variable to be ***
'*** declared in the main module as follows:        ***
'*** Public zSelectedSheets() As String             ***

Private Sub UserForm_Initialize()

    Dim sht        As Object
    Dim iShtCntr   As Integer
    
    ReDim z(1 To ActiveWorkbook.Sheets.Count, 1 To 2)
    
    For Each sht In ActiveWorkbook.Sheets
       lBoxShtNames.AddItem sht.Name
    Next sht

End Sub   'UserForm_Initialize


Private Sub cmdExit_Click()

   Dim lShtCnt  As Long
   Dim lCurItem As Long
   Dim lSelCnt  As Long
   
   lSelCnt = 0   '*** If zero at end NO Items Selected! ***
   lShtCnt = lBoxShtNames.ListCount
   ReDim zSelectedSheets(lShtCnt)
   
   For lCurItem = 0 To lShtCnt - 1
      If lBoxShtNames.Selected(lCurItem) Then
        lSelCnt = lSelCnt + 1
        zSelectedSheets(lSelCnt) = lBoxShtNames.List(lCurItem)
      End If
   Next lCurItem
   
   If lSelCnt = 0 Then
     MsgBox "No Sheets were selected by the user!", _
            vbOKOnly + vbInformation, _
            "No User Selection"
   End If
   
   ReDim Preserve zSelectedSheets(lSelCnt)
   Unload Me
   
End Sub    'cmdExit_Click

Option Explicit

Public zSelectedSheets() As String

Sub TestufSelectedSheets()

    Dim iShtCntr   As Integer
    Dim iCntr      As Integer
    Dim zMsgString As String
    
    ufSelectSheets.Show
    
    iShtCntr = UBound(zSelectedSheets)
     
    If iShtCntr = 0 Then Exit Sub
    
    For iCntr = 1 To iShtCntr
       zMsgString = zMsgString & _
                    "Selected Sheet #" & Format(iCntr) & ": " & _
                    zSelectedSheets(iCntr) & vbCrLf
    Next iCntr
    
    MsgBox zMsgString, vbOKOnly + vbInformation, _
           "Selected Sheets:"

End Sub      'TestufSelectedSheets

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

   If CloseMode = vbFormControlMenu Then  '*** Red button [x] clicked.   ***
     Cancel = True                        '*** Force use of Exit Button! ***
   End If
   
End Sub

‘*********************************************
‘Create new parent folder to save the new files in..
‘*********************************************
zParentFolder = Format(Now, “MMMM YYYY”)               ‘e.g. “February 2017”
zParentFolderName = “C:UserstestDocumentstest1” & “” & zParentFolder      ‘…February 2017
On Error Resume Next                            ‘skip if folder already exists
MkDir zParentFolderName                                ‘create folder
On Error GoTo 0                                 ‘reset error trap
‘*********************************************
‘Create new sub folder to save the new files in..
‘*********************************************
zSubFolder = Format(Now, “mmddyyyy”)               ‘e.g. “02132017”
zSubFolderName = “C:UserstestDocumentstest1” & “” & zParentFolder & “” & zSubFolderName      ‘…2132017
On Error Resume Next                            ‘skip if folder already exists
MkDir zSubFolderName                                ‘create folder
On Error GoTo 0                                 ‘reset error trap
‘*********************************************

'*********************************************
'Create new parent folder to save the new files in..
'*********************************************
zParentFolder = Format(Now, "MMMM YYYY")               'e.g. "February 2017"
zParentFolderName = "C:UserstestDocumentstest1" & "" & zParentFolder      '...February 2017
[COLOR="#008000"]'Now zParentFolder =[/COLOR] [COLOR="#0000FF"]C:UserstestDocumentstest1February 2017[/COLOR]
On Error Resume Next                            'skip if folder already exists
MkDir zParentFolderName                                'create folder
On Error GoTo 0                                 'reset error trap
'*********************************************
'Create new sub folder to save the new files in..
'*********************************************
zSubFolder = Format(Now, "mmddyyyy")               'e.g. "02132017"
zSubFolderName = "C:UserstestDocumentstest1" & "" & zParentFolder & "" & zSubFolderName      '...2132017
[COLOR="#008000"]'Using zParentFolder from above the above resolves to:
'C:UserstestDocumentstest1C:UserstestDocumentstest1February 20172132017[/COLOR]
'Change to:[SIZE=4][COLOR="#B22222"] zSubFolderName = zParentFolder & "" & zSubFolderName[/COLOR][/SIZE]
On Error Resume Next                            'skip if folder already exists
MkDir zSubFolderName                                'create folder
On Error GoTo 0                                 'reset error trap
'*********************************************

Sub AutomatePDF()                      ‘v1a

Set zSource = ThisWorkbook                      ‘define shortcut

zCount = 0                                      ‘iniialize counter

‘*********************************************
‘Turn settings OFF for speedup..
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
‘*********************************************
‘Create the folders to save the new files in..
‘*********************************************
Dim objRow As Range, objCell As Range, strFolders As String

For Each objRow In Sheets(“Job Helper”).UsedRange.Rows
    strFolders = “C:UserstestDocumentstest1”
    For Each objCell In objRow.Cells
           strFolders = strFolders & “” & objCell
    Next
       Shell (“cmd /c md ” & Chr(34) & strFolders & Chr(34))
    Next
‘*********************************************
‘define filename timestamp..
zTimestamp = ” ” & Format(Now, “mmddyyyy”) & ” at ” & Format(Now, “hhmm”) & ” (NG)” ‘e.g. “02132017 at 1130”
zSuffix = zTimestamp & “.pdf”                  ‘e.g. “20132017 at 1130 (NG).pdf”
‘*********************************************

‘~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For Each Z In zSource.Worksheets                ‘loop through ALL worksheets
If Z.Visible = True Then                        ‘sheet is visible, so..
If Z.Tab.ColorIndex = xlColorIndexNone Then     ‘check sheet Tab color; if no color then save

zSaveAs = “C:UserstestDocumentstest1” & “” & Sheets(“Job Helper”).Range(“A1”) & “” & Sheets(“Job Helper”).Range(“B1”) & “” & Z.Name & zSuffix

Z.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=zSaveAs, Quality:=xlQualityStandard, _
    OpenAfterPublish:=False

zCount = zCount + 1                             ‘increment counter
End If                                          ‘end of check for Tab colour
End If                                          ‘end of check for visible sheet

Next Z                                          ‘process next sheet
‘~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


‘*********************************************
‘Turn settings back ON..
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
‘*********************************************
‘Display completion messge..

MsgBox “Finished processing ” & zCount & ” files ”

‘May the force be with you
‘Thanks to the folks at WindowsSecrets for the help!

End Sub