Estou supondo que quando diz "Pasta Oculta" está querendo dizer "Aba", se for, não tem como imprimir ou salvar como PDF uma aba Oculta, terá de exibi-la antes e oculta-la em seguida, se for isto use a rotina abaixo, lembre-se de alterar o nome da aba na rotina :

Sub Pdf_Aba_Oculta()

    Dim shtPdf As Worksheet
    
    'Ajuste o nome da aba que está oculta
    Set shtPdf = Sheets("NomeSuaAba")

    xCaminho = "C:Temp"
    xNomeArq = "Relatorio de Despesa.pdf"
    
    'Congela a tela
    Application.ScreenUpdating = False
    
    'Exibe a aba
    shtPdf.Visible = True

    'Salva em PDF
    shtPdf.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    xCaminho & xNomeArq, Quality:=xlQualityStandard, IncludeDocProperties:=True, From:=1, To:=2, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    
    'Oculta a aba
    shtPdf.Visible = False
    
    'Descongela a tela
    Application.ScreenUpdating = True

End Sub

Muito obrigado Mauro Coutinho.

Atendeu perfeitamente a minha necessidade.