Testei aqui e deu certo. Experimente

Dim planilha As Worksheet

For Each planilha In ActiveWorkbook.Worksheets

With planilha
ChDir "C:UsersrodrigojDesktopTeste"
Nome_Arquivo = .Range("f10").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arquivo, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With

Next

gtsalikis Boa Tarde!

Fiz o teste, porem deu o seguinte erro:

ERRO EM TEMPO DE EXECUÇÃO 1004
O DOCUMENTO NAO FOI SALVO. TALVEZ ESTEJA ABERTO OU PODE TER OCORRIDO UM ERRO DURANTE A GRAVAÇÃO.

A linha apontada foi:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arquivo, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

atc,

hm, vc ainda tem o nome do arquivo na célula F10?

Ou o nome do arquivo tem que ser o nome da planilha?

não dá mais pra editar o post acima. :S

Se vc quiser que o nome da tua "aba" seja o nome do pdf, use:

Dim planilha As Worksheet

For Each planilha In ActiveWorkbook.Worksheets

With planilha
ChDir "C:Temporario"
Nome_Arquivo = planilha.Name
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arquivo, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With

Next

Boa noite gtsalikis!!

Muito obrigado pela ajuda mais uma vez. Funcionou perfeitamente.

A opçao de nomear os arquivos PDF com o nome da aba facilitou mais ainda. Voce é o cara.

Abraços e mais uma vez obrigado.

Bom Dia!
Caro gtsalikis, desculpe-me o incomodo.
Tive que reabrir o topico pois ontem ao testar o codigo encaminhado fiquei tao feliz que acebei por nao perceber um pequeno erro que esta ocorrendo.
O codigo esta salvando as Abas com seu devido nome, entratanto ela esta salvando exatamente a mesma Aba, ou seja, ela salva a mesma Aba com nomes diferentes.

Anexei um pequeno arquivo de exemplo para ficar mais claro o que esta ocorrendo.

Se poder me ajudar mais uma vez agradeço.

Abraços,

estranho

Em todo caso, fiz um remendo aqui, pra ela funcionar.

Tá meio corrido, mas depois posso rever o código e dar uma otimizada.

Dim planilha As Worksheet, nome As String

For Each planilha In ActiveWorkbook.Worksheets

nome = planilha.Name
Sheets(nome).Activate
ChDir "C:UsersrodrigojDesktopTeste"
Nome_Arquivo = nome
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arquivo, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Next

Obrigado mestre.
Agora fiz o teste com calma e o resultado foi positivo. Agora sim esta salvando todas as abas perfeitamente com seu devido nome.

Muito obrigado pela ajuda!

Olá pessoal,

Gostaria de saber se o mesmo código eu conseguiria alterar para que seja salvo em HTML, ao invés de PDF?

Saberiam me dizer se é possível, ou como faço pra salvar uma única aba em html?

Muito obrigado!