Bom dia @cyllacelos 

Não sou expert em VBA, mas utilizo esse código para salvar em PDF

Dim NovoNome As String
NovoNome = "C:\relato\" & ActiveSheet.Range("K2").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=NovoNome, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

O endereço mais o nome do arquivo é digitado ou informado na célula K2

"Uma sugestão, é que se você está deixando em aberto para alguém digitar o endereço, está bem passivo de digitarem errado, então pesquisar algo para resolver esse B.O."

@carlosrgs obrigada,  mas não deu certo.

Fiz a substituição de K2 pela referência da célula onde está o nome que quero dar ao arquivo e "c:\relato\ pelo meu destino no computador. Mas não salva. Além disso, pelo que entendi, dessa forma eu tenho que ter uma pasta pré-determinada no computador né? 

A minha intenção é criar os 2 botões: um em que a pasta seja gerada automaticamente, como no primeiro código, e outro que vá para o destino que a pessoa escolher e colocar o caminho na célula ("Configurações do Exame!B26"). O segundo código quase funciona, porém não sei como fazer o ChDir remeter ao endereço da célula. 

​

Consegui resolver, pessoal!

Neste código que inicialmente salva o arquivo numa pasta pré-determinada e "fixa" no computador e eu queria fazer referência a um caminho digitado numa célula,

Sub SalvarPDF()

ChDir "C:\Users\prisc\Desktop\Exames"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("Audiograma!X1"), Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

o erro era que minha referência era uma planilha de nome composto "Configurações do exame", quando mudei para apenas "Configurações" funcionou e ficou assim: 

Sub SalvarPDF()


ChDir Range("Configurações!B26").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("Audiograma!x1"), Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

MsgBox "Salvo com sucesso!" + Chr(13) + Chr(13) & Range("Audiograma!x1")
End Sub

No outro código, cujo o intuito era criar uma nova pasta e salvar os arquivos nela com o nome do arquivo referente ao texto contido em determinada célula e estava dando erro na hora de abrir o PDF, a falha era na última linha do código que falava pra salvar ThisWorkBook. Para .PDF isso não funcionou, apenas para .xlsm.

Sendo assim, o código ficou desta forma e funcionando bem!

Sub CriarPasta()
    Dim DATA, Dia, Mes, Ano As String
    
    DATA = Date
    Dia = Left(DATA, 2)
    Mes = Right(Left(DATA, 5), 2)
    Ano = Right(DATA, 4)
    
'Criar objeto
    Set fso = CreateObject("Scripting.FileSystemObject")
    
'Se não existir a pasta "NomedaPasta", ela é criada.
       If Not fso.FolderExists("C:\EasyAudio\") Then
            MkDir "C:\NomedaPasta\"
       End If
       
'Se não existir a pasta do ano atual dentro da "NomedaPasta", ela é criada.
       If Not fso.FolderExists("C:\NomedaPasta\" & Ano) Then
            MkDir "C:\NomedaPasta\" & Ano
       End If
       
'Se não existir a pasta do mês atual dentro da pasta do ano atual, ela é criada.
       If Not fso.FolderExists("C:\NomedaPasta\" & Ano & "\" & Mes) Then
            MkDir "C:\NomedaPasta\" & Ano & "\" & Mes
       End If
       
'Se não existir a pasta do dia atual dentro da pasta do mês atual, ela é criada.
       If Not fso.FolderExists("C:\NomedaPasta\" & Ano & "\" & Mes & "\" & Dia) Then
           MkDir "C:\NomedaPasta\" & Ano & "\" & Mes & "\" & Dia
      End If
      
'Cria o caminha que será salvo o arquivo.
    NameFolder = "C:\NomedaPasta\" & Ano & "\" & Mes & "\" & Dia
'Cria o nome do Arquivo, extensão ".xls", troque extensão caso necessário.
    NameFile = Range("x1") & " " & Format(Now, "dd_mm_yyyy") & ".pdf"
'Salva o Arquivo.
       
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
(NameFolder & "\" & NameFile), Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
       
        MsgBox "Salvo com sucesso!" + Chr(13) + Chr(13) & NameFile + Chr(13) + Chr(13) & NameFolder
        
    End Sub

Desculpem a forma que postei inicialmente. É a minha primeira vez em fóruns e eu postei do celular, não tinha visto como fazer esta formatação.

Até a próxima!

​

@cyllacelos 

Poste um modelo do seu arquivo com dados fictícios quem sabe fica mais fácil de te ajudar.

Analisando somente pelo código que postou não tem o que dar errado nele.

O primeiro código seu esta salvando como seu arquivo em pdf nestas linhas.

'Cria o nome do Arquivo, extensão ".xls", troque extensão caso necessário.
NameFile = Range("Audiograma!x1") & " " & Format(Now, "dd_mm_yyyy-hh.mm") & ".pdf"
'Salva o Arquivo.
ThisWorkbook.SaveAs (NameFolder & "\" & NameFile)

O código que o carlos postou esta exportando um pdf do seu arquivo.

@teleguiado muito obrigada! 

Eu consegui resolver ontem e postei as soluções dos 2 códigos aqui, está aguardando moderação. 

No caso deste código que você citou, o problema estava em "ThisWorkbook.SaveAs". Não o dá pra salvar a pasta de trabalho em PDF. Quando troquei para salvar planilha, funcionou e o PDF abriu perfeitamente.