Voce já havia postado em viewtopic.php?f=10&t=1520&start=10
Veja:
Primeiro: lembrando que os nomes de arquivos não podem utilizar alguns caracteres, entre eles "/" e ":"; portanto data e hora devem ser formatados diferentemente.
então deve ter
data = VBA.Format(Date, "dd-mm-yyyy")
hora = VBA.Format(Time, "hh.mm.ss")

Experimente
de:
endereco =endereco = "I:ExcelRelatórioTeste " & i & ".pdf"
para:
endereco = "I:ExcelRelatórioTeste " & i & "-" & data & "-" & hora .pdf"

Bom dia!!

Sub Gera_Pdf()
Dim i, ListSheets As Variant
Dim AleVBA As String
i = 0
'Array com as Planilhas a serem convertidas Array("Plan2", "Plan3")
ListSheets = Array("Recebimento")
AleVBA = Format(Date, "dd-mm-yyyy")
For Each i In ListSheets
endereco = "I:ExcelRelatórioTeste" & i & "-" & AleVBA & ".pdf"
Sheets(i).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
endereco, Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=True
Next i
End Sub

Deu erro de compilação.

O arquivo exportado ficaria assim: 09_03_2013 (10-52) - Recebimento.pdf

Bom dia!!

Reveja com atenção eu não tive problemas ao executar a rotina.

Sub Gera_Pdf()
Dim i, ListSheets As Variant
Dim AleVBA As String
i = 0
'Array com as Planilhas a serem convertidas Array("Plan2", "Plan3")
ListSheets = Array("Recebimento")
AleVBA = Format(Date, "dd-mm-yyyy")
For Each i In ListSheets
'09_03_2013 (10-52) - Recebimento.pdf
'endereco = "C:UsersalexandreDownloads" & AleVBA & "_" & i & "_pdf"
endereco = "I:ExcelRelatório" & AleVBA & AleVBA & "_" & i & "_pdf"
Sheets(i).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
endereco, Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=True
Next i
End Sub

geovane,
pelo seu comentário:
[quote=O arquivo exportado ficaria assim: 09_03_2013 (10-52) - Recebimento.pdf

e o erro de complilação indica que vc montou a string de nome incorretamente (não foi como indicamos anteriormente)

Agora de certo, porém faltou a hora que o arquivo foi gerado.

Boa tarde!!

A primeira resposta do Reinaldo, resolve toda sua questão.

Veja.

Sub Gera_Pdf()
Dim i, ListSheets As Variant
Dim AleVBA As String
i = 0
'Array com as Planilhas a serem convertidas Array("Plan2", "Plan3")
ListSheets = Array("Recebimento")
AleVBA_Data = Format(Date, "dd-mm-yyyy")
AleVBA_Horas = Format(Time, "hh.mm")
For Each i In ListSheets
'09_03_2013 (10-52) - Recebimento.pdf
'endereco = "C:UsersalexandreDownloads" & AleVBA_Data & "_" & i & "_pdf_" & AleVBA_Horas
endereco = "I:ExcelRelatório" & AleVBA_Data & "_" & i & "_pdf_" & AleVBA_Horas
Sheets(i).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
endereco, Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=True
Next i
End Sub

Muito obrigado! resolveu o meu problema.

Boa noite!!

se poder clicar na mãozinha, eu também fico grato!