modifying code save hidden sheets as pdf separately instead at one page

[MKLAQ]

hi

when I search macro for save specific hidden sheets as pdf seperately I 'v found this thread for mr. john Converting Hidden Sheets to PDF . it works well , but save all in one page . I would mod the code to save each hidden sheet as pdf seperately .
this the current code after a simple adjusting

Public Sub Create_Loan_PDF()

    Dim currentSheet As Worksheet
    
    Application.ScreenUpdating = False
    With ThisWorkbook
        Set currentSheet = .ActiveSheet
        .Worksheets("ss").Visible = xlSheetVisible
        .Worksheets("sh").Visible = xlSheetVisible
        .Worksheets(Array("sh", "ss")).Select
        .ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.Path & "\Loan.pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        .Worksheets(Array("sh", "ss")).Visible = xlSheetHidden
        currentSheet.Select
    End With
    Application.ScreenUpdating = True
    
End Sub

 

[MKLAQ]

up