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

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