Excel 2016 - VBA - Select sheets if data

[CrashOD]

I'm looking for it to sleect sheets if on sheet1 (Recepit Ledger)
B49, C49, D49, I49, J49, K49 is above 0
B49 & or L49 is above 0 it selects worksheet2(WS Dis)
C49 & or J49 is above 0 it selects worksheet3(ws Face)
D49 & or K49 above 0 it selects worksheet4(ws Penalty)
it also is not printing I took this code from diffrent sheet i programed. so the directory exest same one it prints to in other sheet. and does not show a error just does what it does like it worked.

im trying to add the code to this vba code
Sub Print_PDF()

' Print to PDF
Sheets(Array("Recepit Ledger", "New County", "New City")).Select
Sheets("Recepit Ledger").Activate

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="T:\2022_TAX_CERTS\" & Sheets(1).Range("I1").Value & " - " & " County & Local Report " & Sheets(1).Range("B1").Value & " - Bills " & Sheets(1).Range("L1").NumberFormat = "mm-dd-yyyy" & " - " & Sheets(1).Range("N1").NumberFormat = "mm-dd-yyyy", _
OpenAfterPublish:=False, ignoreprintareas:=False

End Sub

here is the sheet for it to refrence

Shamokin City - Report_v1_2 (1).xlsm A B C D E F G H I J K L M N 1 Report 7 Shamokin City Reconciliation Work Sheet 2023 05-02-2022 Through 05-31-2022 2 Shamokin City Reconciliation Work Sheet County & City Personal Bills # County & City Real Estate 3 DATE Discount Face Penalty Discount Face Penalty DATE Discount Face Penalty Discount Face Penalty 4 05/03/2022 0 2 0 $0.00 $97.33 $0.00 05/02/2022 0 4 0 $0.00 $1,241.37 $0.00 5 05/05/2022 0 3 0 $0.00 $30.00 $0.00 05/03/2022 0 5 0 $0.00 $2,491.65 $0.00 6 05/06/2022 0 8 0 $0.00 $157.33 $0.00 05/05/2022 0 3 0 $0.00 $1,566.15 $0.00 7 05/09/2022 0 7 0 $0.00 $430.87 $0.00 05/06/2022 0 3 0 $0.00 $1,294.75 $0.00 8 05/10/2022 0 1 0 $0.00 $10.00 $0.00 05/09/2022 0 7 0 $0.00 $3,666.23 $0.00 9 05/12/2022 0 3 0 $0.00 $261.98 $0.00 05/10/2022 0 5 0 $0.00 $1,935.45 $0.00 10 05/13/2022 0 5 0 $0.00 $410.86 $0.00 05/12/2022 0 1 0 $0.00 $395.99 $0.00 11 05/16/2022 0 7 0 $0.00 $147.33 $0.00 05/13/2022 0 8 0 $0.00 $3,704.50 $0.00 12 05/18/2022 0 7 0 $0.00 $456.64 $0.00 05/16/2022 0 8 0 $0.00 $5,793.00 $0.00 13 05/19/2022 0 3 0 $0.00 $287.75 $0.00 05/18/2022 0 11 0 $0.00 $5,875.76 $0.00 14 05/20/2022 0 3 0 $0.00 $81.55 $0.00 05/19/2022 0 1 0 $0.00 $547.26 $0.00 15 05/20/2022 0 2 0 $0.00 $97.33 $0.00 05/20/2022 0 1 0 $0.00 $405.78 $0.00 16 05/23/2022 0 1 0 $0.00 $87.33 $0.00 05/20/2022 0 2 0 $0.00 $885.41 $0.00 17 05/23/2022 0 4 0 $0.00 $91.55 $0.00 05/23/2022 0 7 0 $0.00 $3,105.58 $0.00 18 05/27/2022 0 6 0 $0.00 $266.21 $0.00 05/23/2022 0 3 0 $0.00 $1,381.94 $0.00 19 05/31/2022 0 6 0 $0.00 $369.31 $0.00 05/24/2022 0 1 0 $0.00 $711.88 $0.00 20 05/25/2022 0 1 0 $0.00 $1,036.68 $0.00 21 05/27/2022 0 5 0 $0.00 $3,234.63 $0.00 22 05/31/2022 0 4 0 $0.00 $1,103.43 $0.00 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 Total Bills: 68 Total $: $3,283.37 Total Bills: 80 Total $: $40,377.44 48 49 0 68 0 $0.00 $3,283.37 $0.00 0 80 0 $0.00 $40,377.44 $0.00 Recepit Ledger Cell Formulas Range Formula L1 L1 =MIN(A4:A46, H4:H46) N1 N1 =MAX(A4:A46, H4:H46) D47,K47 D47 =SUM(B4:D46) G47,N47 G47 =SUM(E49+F49+G49) I49:N49,B49:G49 B49 =SUM(B4:B46)

 

[CrashOD]

Function SheetExists(shtName As Variant, wbk As Workbook) As Boolean
If IsNumeric(shtName) Then
SheetExists = CBool(Not wbk.Sheets(CInt(shtName)) Is Nothing)
Else
SheetExists = CBool(Not wbk.Sheets(shtName) Is Nothing)
End If
End Function

Sub Print_PDF_v2()
On Error Resume Next
Dim wbk As Workbook
Set wbk = ThisWorkbook ' or set it to the appropriate workbook
Dim ws As Worksheet
Dim selectedSheets As Collection
Set selectedSheets = New Collection
Dim path As String
Dim newWbk As Workbook

' Always add Receipt Ledger, New County, and New City sheets
selectedSheets.Add wbk.Sheets("Receipt Ledger")
selectedSheets.Add wbk.Sheets("New County")
selectedSheets.Add wbk.Sheets("New City")

' Check if WS DIS sheet should be added based on B52 and/or I52 value
If Not SheetExists("WS DIS", wbk) Then
    MsgBox "WS DIS sheet does not exist"
    Exit Sub
ElseIf wbk.Sheets("Receipt Ledger").Range("B52").Value >= 1 Or _
wbk.Sheets("Receipt Ledger").Range("I52").Value >= 1 Then
    selectedSheets.Add wbk.Sheets("WS DIS")
End If

' Check if WS Face sheet should be added based on C52 and/or J52 value
If Not SheetExists("WS FACE", wbk) Then
    MsgBox "WS FACE sheet does not exist"
    Exit Sub
ElseIf wbk.Sheets("Receipt Ledger").Range("C52").Value >= 1 Or _
wbk.Sheets("Receipt Ledger").Range("J52").Value >= 1 Then
    selectedSheets.Add wbk.Sheets("WS FACE")
End If

' Check if WS PEN sheet should be added based on D52 and/or K52 value
If Not SheetExists("WS PEN", wbk) Then
    MsgBox "WS PEN sheet does not exist"
    Exit Sub
ElseIf wbk.Sheets("Receipt Ledger").Range("D52").Value >= 1 Or _
wbk.Sheets("Receipt Ledger").Range("K52").Value >= 1 Then
    selectedSheets.Add wbk.Sheets("WS PEN")
End If

If selectedSheets.Count >= 1 Then
  '  path = Application.GetSaveAsFilename(wbk.Sheets("Receipt Ledger").Range("O1").Value & wbk.Sheets("Receipt Ledger").Range("I1").Value & " - C&L - Report " & wbk.Sheets("Receipt Ledger").Range("B1").Value & ".pdf") ', "PDF Files (*.pdf), *.pdf")
    path = (wbk.Sheets("Receipt Ledger").Range("O2").Value & "\" & wbk.Sheets("Receipt Ledger").Range("I1").Value & " - C&L - Report " & wbk.Sheets("Receipt Ledger").Range("B1").Value & ".pdf") ', "PDF Files (*.pdf), *.pdf")
 
    If path <> False Then
        Set newWbk = Workbooks.Add
        Dim orderArray() As Variant
        orderArray = Array("Receipt Ledger", "WS DIS", "WS FACE", "WS PEN", "New County", "New City")
        For Each sheetName In orderArray
            For Each ws In selectedSheets
                If ws.Name = sheetName Then
                    ws.Copy After:=newWbk.Sheets(newWbk.Sheets.Count)
                End If
            Next ws
        Next sheetName
        newWbk.ExportAsFixedFormat Type:=xlTypePDF, fileName:=path, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
        newWbk.Close False
        MsgBox "Selected sheets have been saved to PDF successfully."
        ' Add code to save to 2nd location
      ' Dim secondPath As String
'        secondPath = "D:\Country&LocalReport\" & (wbk.Sheets("Receipt Ledger").Range("O1").Value & " - " & wbk.Sheets("Receipt Ledger").Range("I1").Value & " - C&L - Report " & wbk.Sheets("Receipt Ledger").Range("B1").Value & ".pdf")
    'secondPath = "D:\Country&LocalReport\" & wbk.Sheets("Receipt Ledger").Range("O1").Value & " - " & wbk.Sheets("Receipt Ledger").Range("I1").Value & " - C&L - Report " & wbk.Sheets("Receipt Ledger").Range("B1").Value & ".pdf"
     '   If Dir(secondPath, vbDirectory) <> "" Then
      '      newWbk.ExportAsFixedFormat Type:=xlTypePDF, fileName:=secondPath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
       ' Else
            ' Do nothing
        'End If
    End If
End If
End Sub