Pessoal, bom dia!

Criei a macro abaixo para salvar uma planilha em PDF utilizando os dados de uma célula como nome do arquivo.

Sub SalvarArquivoPDF()

Dim NomeArquivo As String

NomeArquivo = ActiveSheet.Range("CD17").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="G:douglasrelatório" & NomeArquivo & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

MsgBox "O arquivo foi salvo corretamente.", vbOKOnly, "Arquivo Salvo"
   
End Sub

Porém, dá erro e o código inteiro fica destacado em amarelo.

Se troco o "Range("CD17").Value" por "Range("CD17").Select", ele salva certinho, porém com o nome "Verdadeiro.pdf".
Testei também o NomeArquivo sem o ActiveSheet no começo e também não funcionou.

Alguém sabe o que estou fazendo errado?

Obrigado!!