Procure utilizar ChDir, ChDrive você altera a letra da unidade e se não reverter terá problemas

ChDir "M:MeusArquivos"

De uma olhada no tópico abaixo:
viewtopic.php?f=10&t=2848&hilit=GetOpenFilename

Na instrução para salvar você tem uma variável "Destino", o que está sendo carregado nesta Variável ? Pode ser que o erro provenha dela tambem.

[]s

Considerando que na variavel "Destino" voce tenha definido o caminho de salvamento, e na celula B7 o nome do arquivo, então o mesmo era para estar salvando corretamente, a menos que você não tenha permissão de leitura e gravação do diretorio especificado.
Em todo caso, segue abaixo o seu código um pouco alterado e comentado, mas funcional.

Sub SALVARPDF()
Dim NomeArquivo As String 'NOME DO ARQUIVO QUE SERÁ UTILIZADO NO SALVAMENTO
Dim Destino As String 'VARIAVEL RESPONSAVEL POR ARMAZENAR O CAMINHO A SER UTILIZADO

'AQUI EU DEFINI O DIRETORIO COMO SENDO O "c:", MAS VOCÊ PODE DEFINI-LO OU ATRIBUIR O ENDEREÇO DE UMA CELULA
Destino = "c:"
'PARA EVITAR TRANSTORNOS FUTUROS, O IDEAL É SEMPRE SETAR O CAMINHO ABSOLUTO DA CELULA, OU SEJA A GUIA
'QUE POSSUE OS DADOS, POIS SEM ISSO ELE BUSCARA NA GUIA ATIVA, OQUE PODE RESULTAR EM ERRO
NomeArquivo = Sheets("plan1").Range("b7").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Destino & NomeArquivo & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
MsgBox "O ARQUIVO FOI GERADO COM SUCESSO" & vbNewLine & Destino & NomeArquivo & ".PDF", vbInformation, "SALVAMENTO"
End Sub

Olá, muitíssimo obrigado pela ajuda! Está funcionando perfeitamente!

Irei testar durante o dia, se não ocorrer nenhum erro o irei marcar como resolvido.

Um abraço.