Have the following (corrected in this newsgroup)
I don't understand what the double quotes stand for, so I can't
figure out why my code does not work properly.

If Dir("C:\Contracts EMailed\" & NewName) = "" Then
I need this line to read:
If current active file name + _EM exists in C:\Contracts EMailed, Then
Call NotAllowed (which is a message with an exit statement)
Else continue.............
The context is:
Dim FName As String
FName = ActiveWorkbook.Name
Dim NewName As String
NewName = FName + "_EM"

If Dir("C:\Contracts EMailed\" & NewName) = "" Then
Call NotAllowed
Else: Exit Sub
End If
End Sub