Não testei, mas tente:

Trocar a linha:
Sheets("Plan1").Select

por

For Each Sheet In Workbook.Worksheets

gtsalikis boa tarde e obrigado pela resposta.

Fiz a alteração proposta porem deu erro conforme abaixo:

O código ficou dessa forma:

For Each Sheet In Workbook.Worksheets
ChDir "C:UsersrodrigojDesktopTeste"
Nome_Arquivo = Range("e3").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arquivo, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

ERRO - ERRO DE COMPILAÇAO - FOR SEM NEXT

Com isso, fui e inseri um "Next", ai ficou assim:

For Each Sheet In Workbook.Worksheets
ChDir "C:UsersrodrigojDesktopTeste"
Nome_Arquivo = Range("e3").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arquivo, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Next

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

End Sub

E deu ERRO - ERRO EM TEMPO DE EXECUÇÃO - O OBJETO É OBRIGATÓRIO

Abraços,

Bem, testei aqui, de outra forma

Dim i As Integer

For i = 1 To 3

Sheets("Plan" & i).Select
ChDir "C:UsersrodrigojDesktopTeste"
Nome_Arquivo = Range("f10").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arquivo, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Next

Nessa parte:

For i = 1 To 3

coloque os valores da primeira e da ultima planilha

Meu amigo!
Expetacular.

Sensacional soluçao!

Muito obrigado por sua ajuda, deu certinho. Abraços e mais uma vez obrigado.