Jeferson Nogueira

Sou novo em vba e estou com dificuldade em realizar um procedimento de restrição de salvamento de pdf já existente ou mesmo subescreve-lo Sub Verifica_Arquivo() 'Nomes para criação do arquivo Dim nome As String nome = Sheets("ORÇAMENTO").Range("E4").Value Dim cliente As String cliente = Sheets("ORÇAMENTO").Range("E5").Value Dim numero As String numero = Sheets("ORÇAMENTO").Range("B8").Value Dim anual As String anual = Sheets("ORÇAMENTO").Range("E6").Value 'Leitura do pasta que esta o exel alocado para salvar na mesma pasta Dim LocalName As String LocalNome = ThisWorkbook.Path & "\" & nome & " " & cliente & " " & numero & " " & anual & "" 'Criando uma restrição de salvamento de pdf com mesmo nome Dim resultado As String resultado = LocalNome & ".PDF" If Dir(resultado) = "" And vbYes Then MsgBox "Salvar o arquivo: '" & LocalNome & "' Na pasta!", vbInformation + vbYesNo Sheets("IMPRESSÃO").Visible = True 'Criar o PDF e inserir na pasta destino com sua respectiva seguência Sheets("IMPRESSÃO").Select Sheets("IMPRESSÃO").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ LocalNome, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True Sheets("IMPRESSÃO").Visible = False Sheets("ORÇAMENTO").Select Range("B8").Select Else MsgBox "Arquivo: '" & LocalNome & "' já existe deseja sub escrever!", vbCritical + vbYesNo End If End Sub