VBA Saving file

[Pinaceous]

Hi All,

If I'm running sub:

strName = ThisWorkbook.Path & "\" & Format(Date, "DDMMMYYYY ") & "Document" & " " & ".xlsm"

And this file already exists in this drive path, is there a way for the sub to exit to prevent a new document from save overriding it?

Please let me know what you are thinking...

Thank you!
pinaceous

 

[eiloken]

Hi All,

If I'm running sub:

strName = ThisWorkbook.Path & "\" & Format(Date, "DDMMMYYYY ") & "Document" & " " & ".xlsm"

And this file already exists in this drive path, is there a way for the sub to exit to prevent a new document from save overriding it?

Please let me know what you are thinking...

Thank you!
pinaceous

If Not Dir(strName) = "" Then
        MsgBox "File already exist", vbCritical
        Exit Sub
    End If

 

[Pinaceous]

If Not Dir(strName) = "" Then
        MsgBox "File already exist", vbCritical
        Exit Sub
    End If

Thank you!