Boa tarde galera,

Tenho esse código abaixo para exportar PDF, já definidos a pasta e nome do arquivo.

Porém, caso dê erro gostaria que aparece a tela de Salvar para que eu possa digitar o nome do arquivo e pasta desejada.

É possível?

Private Sub ExportarPDF()

Application.ScreenUpdating = False

DataBack = Format(Date, "yyyy-mm-dd")
NomePasta = Plan4.Range("D7").Value
NomeArquivo = Plan4.Range("D8").Value & ".-." & DataBack & ".pdf"

On Error GoTo Erro

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveWorkbook.Path & "" & NomePasta & "" & NomeArquivo, Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
        
Application.ScreenUpdating = True
        
Exit Sub

Erro:

'preciso desse código

Application.ScreenUpdating = True

End Sub