Guru do Excel e Power BI

Fala galera, to fazendo uma planilha e criei uma macro para salvar todas as abas em um único pdf. antes funcionava, agora dá o erro:
erro em tempo de execução "1004"
O documento não foi salvo. Talvez esteja aberto ou pode ter ocorrido um erro durante a gravação.

e me aponta esse código:

Código: Selecionar todos

Dim EsseNome As String
EsseNome = Worksheets("ENTREGA").Range("M4")



ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\RECIBOS\" & EsseNome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

Alguém pode me dizer aonde está o erro?

desde já agradeço

a planilha está em anexo.

Boa tarde!!

Não ha o código que salva os arquivos em PDF!!

Verifique se é o arquivo correto!

Caso queira savas as guias como PDF, tente.

Código: Selecionar todos

Sub AleVBA_10763()

 strPath = "C:\Users\AleVBA\Downloads\"
    strFName = "AleVBA_pdf" & ".PDF"
    
    For Each Worksheet In Worksheets
        Worksheet.Select
    Next
    
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        strPath & strFName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Att

Guru do Excel e Power BI

Salvar em PDF

Salvar em PDF

Re: Salvar em PDF