Export all tabs as individual PDF files - VBA or macro?

[lost_in_the_sauce]

I have a workbook with about 50 tabs that need individual distribution, exporting them individually is extremely time intensive. I would like them to all be exported individualls and named as their tab name (i.e. Orlando.pdf) so I can drop them all into a share folder for the recipients to download. I started trying with recording a macro but am unsure how to swap the export file name to the tab name in the process. Does anyone have any suggestions or know of a way to do this with VBA?

 

[Cervani]

Sub ExportPDF()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & ws.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next ws
End Sub