VBA　シートが一個しか出力されないものとしっかり結合して出力するのと分かれる

フォルダ内のエクセルファイルをPDF出力するマクロを作成しました。
出力したい条件としては、シート名にDBを含むシートは除いて、すべてをPDF出力、複数シートがある場合は結合してPDF出力
と言った作業が行いたく以下のマクロを作成しました。

Sub EXCELファイルPDF化03() 'フォルダのEXCELファイルの一括変換

    Dim Button, T, i, L As Integer
    Dim OpenExcelFileName, ExcelFileName, ExcelFilePath, ExFileName As String

    Application.DisplayAlerts = False  '確認メッセージを無効化します。


    Button = MsgBox("EXCEファイルの一括PDF変を行いますか？", vbYesNo + vbQuestion, "確認")
    If Button = vbYes Then

            OpenExcelFileName = Application.GetOpenFilename 'ダイアログを表示取り込むフォルダーにあるファイルを選択します。

            If OpenExcelFileName <> "False" Then
                ExcelFileName = Dir(OpenExcelFileName)  '指定したファイルパスからファイル名を代入します。
                ExcelFilePath = Replace(OpenExcelFileName, ExcelFileName, "")  '指定したファイルパスを指定します。（ファイルパスからファイル名を取り除く）

                MsgBox ExcelFilePath & "この選択フォルダからPDFに変換します。"
            Else
                MsgBox "キャンセルされました"
                Exit Sub  'キャンセルでプログラムを終了します。

            End If

            ExFileName = Dir(ExcelFilePath & "*.xls?")  '指定したフォルダーから一件目のEXCELファイルを指定します。


            Do While ExFileName <> ""    '読み込むファイルがなくなるまで繰り返す。

                Workbooks.Open fileName:=ExcelFilePath & ExFileName, ReadOnly:=True, UpdateLinks:=0  'EXCELファイルを読み取り専用で読み込む
                ExFileName = Left(ExFileName, InStr(ExFileName, ".") - 1) ' ファイル名から拡張子を取り除く（.xls?）
                Set wb = ActiveWorkbook

               With ActiveSheet.PageSetup
                    .Zoom = False
                    .FitToPagesWide = 1
                    .FitToPagesTall = 1
                End With

                'ActiveWorkbook の記述はいらなかった
                'レポートの記述にいらないスペースがあったかも

              Dim sheet_count As Integer
              sheet_count = Worksheets.Count
              Dim ArrayShName() As String
              ReDim ArrayShName(sheet_count)
              Dim mySheet As Worksheet

            On Error Resume Next 'エラー無視

            Dim k As Long
            k = 0

            Dim j As Integer
            For j = 1 To Worksheets.Count
                If Worksheets(j).Name <> "DB" Then
                    ArrayShName(k) = Worksheets(j).Name
                    k = k + 1
                End If
            Next

            Worksheets(ArrayShName).Select
                        ActiveSheet.ExportAsFixedFormat _
                            Type:=xlTypePDF, _
                            fileName:=ExcelFilePath & ExFileName, _
                            OpenAfterPublish:=True

            ActiveWindow.Close  '読み込んだファイルを閉じます。

            ExFileName = Dir() '次のファイルを指定する。

            Loop

            MsgBox "PDFファイルに一括変換しました。"
    Else
        MsgBox "処理を中断します"
    End If

    Application.DisplayAlerts = True  '確認メッセージを有効化します。

End Sub

ただ現状タイトルにも記載して重複で申し訳ないんですが、
複数シートがあるファイルをPDF出力する際シートが一つしか出力されないものと全て出力されるものと分かれてしまい
その原因がどこにあるのかわからず困っております。

調べ方であったり、ここの記述がおかしい！など手掛かりになるヒント、アドバイスを頂けると幸いです。

宜しくお願い致します。

参考記事：https://ateitexe.com/excel-vba-sheets-to-merge-pdf/

OS：macOS Catalina バージョン10.15.3
Excelバージョン： Microsoft Excel for Mac バージョン16.39