Run-time error'13:Type mismatch 问题，望大神帮忙，谢谢~

巅峰一只猪

你好，各位大神，我做了一个按钮，目的：点击后保存工作并测底退出excel程序，为了方便我们不怎么会用电脑的同事。
程序代码：
Sub 关闭()
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
End Sub

点击后，能够保存当前工作内容，但是要弹出如下问题对话框：

不知道怎么解决了，请各位大神帮忙解决一下，万分感谢。
附件如下：

爱疯

程序本身没错误。
不清楚"office tab"对此的影响。

巅峰一只猪

爱疯 发表于 2016-4-8 16:20
程序本身没错误。
不清楚"office tab"对此的影响。

谢谢你的回复，我马上去试试