Salvar em Pdf e Não substituir arquivo se mesmo nome existir

Question

estou com uma tabela para gerar exames de pacientes em minha clinica veterinária, e já consigo salvar em pdf no seguinte modelo:

nomepaciente - nomeproprietario.pdf

o problema é quando esse paciente já fez um exame anteriormente, aí ele está substituindo o exame antigo, gostaria de criar algo do tipo:

nomepaciente - nomeproprietario(2).pdf

caso já exista o arquivo. aqui vai o codigo que eu estou usando.

obrigado.

Sub salvar()
'
' salvar Macro
'
Dim nome As String
nome = "C:\Users\Jean\Desktop\exames pdf\" & Range("E5") & " - " & Range("k7") & ".pdf"
'
    Sheets("Exame").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    Sheets("PREENCHER").Select
    Range("E5:G5").Select
End Sub

outra coisa que me irrita é que não consigo fazer o codigo funcionar sem selecionar visualmente a outra planilha, então quando roda a macro a tela fica piscando na alternancia entre o lugar onde está o formulario e onde está o banco de dados.