Exporting each sheets to PDF's as a separate file

[T.I.]

Hi, experts!

Is it possible to export each sheet of workbook to PDF using names from cells of particular sheet?
For ex:
Sheet1: A1=Name1
Sheet1: A2=Name2
Sheet1: A3=Name3

I found this kind of code in internet, but for exported PDF's it uses names of sheets...

Sub SplitSheets5()
    Dim s As Worksheet
 
    For Each s In ActiveWorkbook.Worksheets
        s.ExportAsFixedFormat Filename:=ThisWorkbook.Path & "\" & s.Name & ".pdf", Type:=xlTypePDF
    Next
End Sub

Thanks in advance.