Guardar excel en PDF y comprobar si existe el archivo

Tengo una macro que me guarda una hoja excel en pdf, me pregunta la ruta donde guardarlo, hasta ahí todo correcto, pero si el archivo ya existe directamente me lo reemplaza sin preguntarme nada. Necesitaría que si ya hay un archivo con ese mismo nombre al nuevo le pusiera numeración como hace windows (1), (2), etc.

Les dejo la macro que tengo hasta ahora.

Gracias anticipadas

Private Sub CommandButton2_Click()

Dim Ruta As String
Dim NombreArchivo As String
Dim Hoja As Object

With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Seleccionar carpeta"
.Show
If .SelectedItems.Count = 0 Then
'Nada
Else

Ruta = .SelectedItems(1)
NombreArchivo = Range("E11") & " " & Now * 1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & "\" & NombreArchivo & ".pdf", OpenAfterPublish:=True
End If
End With

End Sub