Необходимо изменить существующий код, чтобы ОСТАНОВИТЬ его от перезаписи существующего файла, если он присутствует

Question

Мне нужно изменить этот код для первого поиска, если файл существует, если это так, ничего не делать, только показать сообщение, если нет, код ниже автоматически создаст файл.Заранее спасибо.

    Option Explicit
    Public WithEvents MonitorApp As Application

    Private Sub Workbook_Open()

    Dim strGenericFilePath      As String: strGenericFilePath = "\\Server2016\Common\Register\"
    Dim strYear                 As String: strYear = Year(Date) & "\"
    Dim strMonth                As String: strMonth = MonthName(Month(Date)) & "\"
    Dim strFileName             As String: strFileName = "Register Sheet " & Format(Date, "mmm dd yyyy")

    Application.DisplayAlerts = False

    If Len(Dir(strGenericFilePath & strYear, vbDirectory)) = 0 Then
        MkDir strGenericFilePath & strYear
    End If

    If Len(Dir(strGenericFilePath & strYear & strMonth, vbDirectory)) = 0 Then
        MkDir strGenericFilePath & strYear & strMonth
    End If

    If Len(Dir(strGenericFilePath & strYear & strMonth, vbDirectory)) = 0 Then
        MkDir strGenericFilePath & strYear & strMonth
    End If

    ActiveWorkbook.SaveAs Filename:= strGenericFilePath & strYear & strMonth & strFileName, _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

    Application.DisplayAlerts = True

    MsgBox "File Saved As: " & vbNewLine & strGenericFilePath & strYear & strMonth & strFileName

    End Sub