É exatamente isso que eu queria. Muito Obrigado Basole, pode apagar o arquivo da sua resposta e deixar apenas o código? Assim eu marco sua resposta...

Em cima tem o botão de Salvar. Quando se clica nele ele salva o arquivo em PDF com o nome que estiver inserido na Célular D6, ou, caso a célula estej...

Ainda não funcionou, aparentemente o comando "Thisworkbook" que é o comando que vai direcionar o local correto de salvamento esta inserido n...

Amigo, não deu certo. Veja.