Bom dia!!

Tente

Sub SalvarvalorCelula_13653()
    'Fonte: http://www.vbaexpress.com/kb/getarticle.php?kb_id=160
    Dim FName           As String
    Dim FPath           As String
     
    FPath = "C:"
    FName = Sheets("Plan1").Range("A1").Text
    ThisWorkbook.SaveAs Filename:=FPath & "" & FName
     
End Sub

Att

Brigadão Alex, deu certo!
Caso eu queira criar uma macro para salvar em pdf com o nome da célula, como seria?

Ever, bom dia!

Poderá usar esse código:

Sub gravarPDF()
'
   destino = "C:" 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        destino & Range("A1").Value & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Att,

Boa tarde!!

Por favor se a dica foi útil, click na mãozinha!!

Para PDF veja
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Muito obrigado galera, todos estão dando certo!
Agora uma última dúvida, vocês sabem me dizer como crio uma macro que mande um e-mail direto do excel?
O e-mail destinatário vai estar digitado na célula A25.
Nesse e-mail tem que conter esse aquivo pdf que foi gerado. Obrigado

Bom dia!

Dê uma olhada na nossa base de dados.
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Creio que encontrará algo próximo do que procura.

Att