Este fórum está sendo desativado

[WandersonMelo]

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.

[alexandrevba]

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