特定のキーワードでシートを選択し、PDF化します。
キーワードは「含む」ものをPDF化、「含まない」ものをPDF化の選択ができます。
印刷とPDF化の選択も入れようと思いましたが、やめておきました。

Yuzunokiさんのご協力のもと、シェアさせていただきます。

設定変数　ファイル名　　　　　　　　　※Excelファイル名
　　　　　書き込みファイル名　　　　　※PDF化するファイル名
　　　　　キーワード　　　　　　　　　※シート名に含まれるワード
　　　　　キーワード含む・含まない　　※キーワードを含むものをPDF化か、含まないものをPDF化か選択

ライブラリ　Excel操作(PDF形式で出力) 

' ====PDFを出力する ==============================================================

workbook.ExportAsFixedFormat 0,pdfFilePath

この一行を削除し、以下のコードを追加します。

Dim MySheet
Dim MySheetName()
Dim i
Dim Myword
Dim Myselect

Myword = ! キーワード !
Myselect = ! キーワード含む・含まない|含む,含まない!
ReDim MySheetName(0)

If Myselect = "含む" then

For Each MySheet In workbook.Worksheets
If Instr(MySheet.Name, Myword) > 0 Then
ReDim Preserve MySheetName(i)
MySheetName(i) = MySheet.Name
i = i + 1

Else
End If
Next

Else

For Each MySheet In workbook.Worksheets
If Instr(MySheet.Name, Myword) > 0 Then
Else : ReDim Preserve MySheetName(i)
MySheetName(i) = MySheet.Name
i = i + 1
End If
Next

End if

On Error Resume Next
workbook.Sheets(MySheetName).Select

If Err.Number <> 0 Then
Msgbox "シートがみつかりません"
Else : workbook.ActiveSheet.ExportAsFixedFormat 0, pdfFilePath
End If
On Error Goto 0