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!!
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 ( / : * ? < > | ).
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Show.
Erro bobo: / no nome do arquivo.
Salvou meu dia! 
Abs!!