Visual Basic Macro em Excel para salvar PDF com valor de célula

[lucasmfaller]

Gostaria de uma ajuda pessoal!

 

Tenho um macro no Excel que ao executa-lo, salva uma parte da planilha em PDF, porém está salvando com um nome fixo, gostaria que o nome do arquivo saísse com o valor de uma determinada célula da mesma planilha. Olhei alguma coisa no google mas como sou iniciante não consegui adaptar ao meu código! Abaixo segue meu macro atual que funciona tudo certinho, só esta faltando o nome mesmo.

 

Sub RelatorioConsultora()

'Create and assign variables
Dim saveLocation As String
Dim rng As Range

saveLocation = "C:\Users\Desktop\RelatorioConsultora.pdf"
Set rng = Sheets("teste").Range("B4:AA6")

'Save a range as PDF
rng.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation

End Sub

 

[Midori]

Atribua o diretório com o valor da célula, se for A1 p.ex,

 

saveLocation = "C:\Users\Desktop\" & [A1].Value

 

[lucasmfaller]

Coloquei, funcionou algumas vezes e agora não funciona mais, está dando o erro da imagem em anexo. Abaixo segue o código, já revisei os diretórios, células e planilhas e não acho o erro 

 

Sub RelatorioFinanceiroConsultora()

'Create and assign variables
Dim saveLocation As String
Dim rng As Range

saveLocation = "E:\Desktop\Controle\RELATORIO MENSAL - " & Range("D4").Value & " - " & ActiveSheet.Name & ".pdf"
Set rng = Sheets("RELATORIO").Range("A2:D23")

'Save a range as PDF
rng.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation

End Sub

 

[Midori]

Qual é o texto da célula e a mensagem de erro? Talvez o texto da célula não seja válido para um nome de arquivo, como o formato de data por exemplo.