Excel Local para salvar uma planilha do excel convertida para pdf

[Rodney Almeida]

Bom dia a todos

Preciso salvar uma planilha que foi convertida do excel para pdf, porém com a opção de onde eu ou outro usuário da empresa possa queira definir o local.

Já possuía uma macro que fiz há um tempo atrás, porém essa macro ela salva o arquivo pdf na raiz onde esta localizado o arquivo excel.

e não consegui alterar essa função para que ele salve o arquivo pdf por exemplo na área de trabalho ou de a opção de escolher onde salvar

Segue abaixo a macro que tenho:

 

Sub PDFFERIAS()

Dim SvInput As String
Dim var_MENSAGEM
Dim Nome As String
Dim UltimaLinha As Long

UltimaLinha = Planilha1.Cells(Rows.Count, "a").End(xlUp).Row
    Planilha1.PageSetup.PrintArea = Range("$A$1:$Q$52" & UltimaLinha).Address
Nome = Planilha1.Range("G7")
SvInput = ActiveWorkbook.Path & Application.PathSeparator & Nome & " " & ".pdf"

        With Planilha1
            .ExportAsFixedFormat _
                Type:=x1TypePDF, _
                Filename:=SvInput, _
                OpenAfterPublish:=True
        End With

End Sub