Gostaria de uma ajuda pessoal!

Tenho um macro 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