Boa tarde, para nao mexer nos seus codigos inseri um novo modulo.

O codigo tem alguns comentarios que deveram ser substituidos para que o codigo funcione corretamente

Ve se serve

Prudencio ,
nao funcionou , pois eu preciso da tabela tambem .que esta no codigo

precisava so de salvar com o nome da celula .
mais de todo jeito muito obrigado

Ajustei a sua macro dessa vez

Para testar crie uma pasta com o nome Backup em C:, ou troque o caminho onde o arquivo devera ser salvo.

PRUDENCIO ,nao tem como deixar pra a gente escolher a pasta ?

a macro ta dando um erro de argumento .

a macro que estava na primeira que postei nao tem como so adcionar somente a linha para salvar com o nome da celula ?
obrigado

Vc fez o que eu falei pra fazer?

Criou a pasta Backup em C:?

Ou editou o codigo no local indicado ?

Qdo vc clica em Depurar onde marca?

Se for em "C:/Backup"

Tem um comentario logo a frente

vou tentar aqui .
Qualquer coisa falo aqui

Deu certo mesmo não.
Precisava somente de adicionar o código para salvar com o nome da celula .do jeito q está eu posso escolher um local pra salvar ,pois não uso somente em uma maquina .
Daí tem algumas máquinas q tem uma unidade e a outra já num tem .
Por isso q precisava somente de adicionar a linha de código para salvar com o nome da célula.
Obrigado

Amigao o codigo que passei se vc seguir o que foi orientado tem que funcionar pq aqui funciona perfeitamente fazendo exatamente o que vc quer que faça.

Dizer somente que nao esta funcionando sem dizer o que nao esta funcionando e onde para o a execução do codigo nao ajuda a resolver o seu problema.

A parte do codigo que faz o que vc pediu

Ou seja

Salvar com o nome na celula D2 e a data em F3 é este

E este

Dim WSH As Worksheet
Dim NomeArquivo As String
Dim R As String

Set WSH = Sheets("TESTE") ' Troque pelo nome da sua planilha
NomeArquivo = WSH.Range("D2").Value & " " & Format(WSH.Range("F3").Value, "DD.MM.YYYY") ' usei pontos pq "/" nao é aceito na hora de salvar o arquivo

'Pede Confirmação para salvar em PDF

R = MsgBox("Deseja Criar uma Folha em PDF", vbYesNo, "Criando PDF")

'Se a resposta for NAO O CODIGO ENCERRA

If R = vbNo Then Exit Sub

Coloque esse codigo dentro de sua Sub

Dim WSH As Worksheet
Dim NomeArquivo As String
Dim R As String

Set WSH = Sheets("TESTE") ' Troque pelo nome da sua planilha
NomeArquivo = WSH.Range("D2").Value & " " & Format(WSH.Range("F3").Value, "DD.MM.YYYY") ' usei pontos pq "/" nao é aceito na hora de salvar o arquivo

'Pede Confirmação para salvar em PDF

R = MsgBox("Deseja Criar uma Folha em PDF", vbYesNo, "Criando PDF")

'Se a resposta for NAO O CODIGO ENCERRA

If R = vbNo Then Exit Sub