Criar um restrição de salvar pdf duplicado na pasta

[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