How to schedule batch split workbook for independence named for a particular column data directly?-CodePudding

Directly with the following code split the file is named after the Sheet Name, but in the end want to file Name because of the limitation of more than 31 characters, so would like to ask how to when mass production directly to a work table corresponds to a column of data named? A great god, please grant instruction!

Sub BatchConvertWorkSheetToPDF ()

For Each sh Worksheets In

If sh. The Name & lt;> "" Then

Sh. ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook. Path & amp; "" & amp; Sh. The Name & amp; "PDF", Quality:=xlQualityStandard, _IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End the If

Next

End Sub