I need to split an Excel workbook into separate pdf files. I have successfully split the workbook into pdfs, and now I need to have each pdf named by whatever text is in cell B3 on each worksheet. In the example below, I would like "Example" to reference B3 in each separate sheet. Here is what I am using:

Sub ExportToPDFs()
' PDF Export Macro
' Change C:\Exports\ to your folder path where you need the files saved
' Save Each Worksheet to a separate PDF file.
Dim ws As Worksheet
For Each ws In Worksheets
nm = ws.Name
ActiveWorkbook.SaveAs Filename:="Macintosh HD:Users:operationsasst:Desktop:PEGGY_TEST:Example.pdf", FileFormat:=xlPDF, PublishOption:=xlSheet

Next ws
End Sub
I am completely new to VBA within the last week. Apologies for incorrect terminology and any help is appreciated.