避免创build重复表单

我正在试图做一个macros观的预算。 我有不同的业务单位与多个成本中心。 基本上我想把这个启用macros的工作表分发给不同的业务部门,他们用预定义的参数做预算。

在进行设置时,用户select一个业务单位,然后同一业务单位下的可用成本中心将创build一个具有预定名称的工作表。 现在的问题是,如果用户再次进入相同的设置并select相同的业务单元,则会显示运行时间错误,即表单名称不能改变,因为已经存在具有相同名称的表单。

我尝试使用On Error函数,但是用例如Sheet16创build了一个新工作表。

我的要求是继续文件,如果没有发生任何事情或popup一个MsgBox与预定义的错误消息,而不创build一个新的空白工作表。

有任何想法吗?

您可以先检查工作表是否存在并处理该情况。 您可以使用以下循环:

For Each i In ActiveWorkbook.Sheets s = i.Name ' this is the name Next i