VBA代码问题

富之宝

我写了一个代码：
sub beifen()
       DIM A, X AS INTEGER
       A=FORMAT(NOW(),"YYYYMMDDHHMMSS")
       ACTIVEWORKBOOK.SAVEAS FILENAME:="D:\"  & A & ".XLS"
               X=WORKBOOKS.COUNT '统计打开工作簿的个数
               IF X=1 THEN  '如果只打开一个工作簿
                         APPLICATION.QUIT '退出EXCEL程序
                ELSE
                         THISWORKBOOK.CLOSE  '如果打开了多个工作簿，只关闭当前的工作簿
               ENDIF
END SUB

然后在thisworkbook的代码里写
private sub workbook_beforeclose(cancel as boolean)
   call beifen
end sub
为什么我只打开一个工作簿时退出不了EXCEL程序,如图所示:
能否帮我修改一下代码? 谢谢了!