Exportar Cada Aba da Planilha Excel como PDF

Código da Macro:

Sub ExportarPDF()

Dim ws As Worksheet

For Each ws In Worksheets
If ws.Visible Then
ws.Select
nm = ws.Name

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & nm & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next ws


End Sub

[silmarmoreno]

muitooo obrigado. deu muito certo e resolveu um grande BO.

[fernandocruz]

Obrigado! Exatamente o que precisava! Rápido e claro! Muito com o vídeo

[luizmolina]

Excelente vídeo! Procurava essa solução há muito tempo e foi a única que encontrei dentro ou fora do Youtube!
Muito obrigado!

[cinthyalepin]

Obrigada demais!!! Não consigo acreditar que foi tão simples!!!

[gamenasala]

Não esta salvando em lugar nenhum, teria alguma dica sobre oque posso estar fazendo errado? Obg

[gustskovsk]

Estou vendo onde errei. A macro rodou, porém nao criou os pdfs

Seria por causa do modelo do Office?

[gamenasala]

Consegui eu não estava conseguindo pois a pasta estava no One Drive

[lucascostabarretodemelo]

Obrigado pelo código. Agora estou enfrentando um problema, inseri algumas caixas de texto em negrito e de outras cores. Quando coloco para imprimir, as cores vem, mas não vem em negrito. Saberia dizer se tem algum motivo para isso estar acontecendo?

[luizmolina]

Existe a possibilidade de inserir a data em que o arquivo foi gerado automaticamente no nome do arquivo? E ainda, é possível nessa mesma macro exportar também, além dos PDFs das abas separadas, uma versão do PDF com todas juntas?
Obrigado!