Este fórum está sendo desativado

[douglascioffi]

Pessoal, bom dia!

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

Código: Selecionar todos

Sub SalvarArquivoPDF()

Dim NomeArquivo As String

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

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="G:\douglas\relató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!!

[Reinaldo]

O "select" apenas seleciona uma range/celula não retorna o valor, motivo do verdadeiro.
Se ao utilizar o range(xx).value o erro acontece, verifique o conteúdo de sua celula, se não existem caracteres proibidos pelo sistema operacional ( / \ : * ? < > | ).