Guru do Excel e Power BI

Fala Galera blz??
Então estou conseguindo salvar o PDF no local onde ja esta minha planilha mas gostaria que o PDF fosse salvo em uma pasta que eu escolhesse alguém pode me ajudar ai?

http://datab-forum-imagens.s3.amazonaws ... 901058.png

Desde de já agradeço

Busca de pasta: Pode adaptar ao seu código...

With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Buscar pasta"
.Show
.AllowMultiSelect = False
Pasta = .SelectedItems(1)
End With