SILVIOFELINTO,

Boa Tarde!

Veja se seu arquivo de PDF já não se encontrava aberto na hora que você executou, por exemplo, novamente a rotina. Aqui, eu testei seu código com uma planilha minha e deu certo. Veja no arquivo anexo, a planilha Excel e o arquivo em PDF gerado pelo seu código.

Boa tarde Wagner.

Eu copiei o arquivo do meu computador para o netebook onde não havia nenhum pdf aberto.
Para testar a a macro novamente abrir uma nova pasta do excel e colei a macro n VBA. Neste caso deu certo.
Entretanto no arquivo original continua dando o erro.

Silvio Felinto

Sem ver o original, fica difícil, pelo código; como bem disse o Colega Wagner Morel; não há problema. Contudo se estiver utilizando excel 2007, e necessário a instalação de um complemento/atualização em sua instalação, já que a exportação em PDF não é nativa.

Bom dia Reinaldo.

Segue anexo o arquivo adaptado do original.
Mesmo com a adptação ele continua dando o erro e não exportando para PDF.
Se descobrir o que está errado, peço a gentileza de colocar a explicação aqui.

Um abraço.

Silvio Felinto

Nem sempre a mensagem de erro recebida direciona ao erro real; então vamos por etapas:
Primeira divergência.: Ao utilizar o valor de A1 como nome do arquivo, com "/" nas datas - Barras são proibidas pelo sistema operacional
--> Os seguintes caracteres não são aceitos no nome de arquivo / * ? " : < > |
Substitua por ponto ou traço =CONCATENAR("Relatório DIREF";" - ";TEXTO(HOJE();"dd-mm-aaaa"))
Segunda Divergência.: Certifique-se que o diretório fixo no VBA --> "C:Userssilvio.felinto" , esteja presente no equipamento que deseja utilizar, caso contrario não conseguira gravar o arquivo gerado, resultando em erro.

Fora isso gera normalmente o PDF

Reinaldo,

Muito obrigado pela resposta.
O problema era o caractere "/" mesmo.

Um abraço.

Silvio Felinto