我需要一个宏来创建一个包含所有工作表（“数据列表”除外）和所有宏/用户表单的重复工作簿。这就是我到目前为止所做的：
fname = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.xlsm), *.xlsm")
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=52
Application.DisplayAlerts = False
Worksheets("Data List").Delete
问题是，我的公式因为返回“数据列表”而停止工作。我该如何解决这个问题？
上下文/编辑：
对不起，我的问题措辞不好。我忘了包含这样一个事实，即我收到了#REF错误，因为有些公式会回溯到原始工作簿，其中包含“数据列表”表。以前，我将除“数据列表”之外的所有表格复制到一个新的工作簿中，一切都像魅力一样，直到我将文件发送给另一个人，然后所有的宏都失败了。因此，我正在寻找解决此问题的方法，因此保存整个工作簿，然后删除一个工作表。但是，现在我的公式无效。