避免创建重复工作表

Question

我正在尝试制作一个宏来制作预算。我有多个成本中心的不同业务部门。基本上我想将这个启用宏的工作表分发给不同的业务部门，他们使用预定义的参数制定预算。

在进行设置时，用户选择一个业务单位，然后同一业务单位下的可用成本中心会创建一张表，每个表都有预定义的名称。现在的问题是，如果用户再次进入相同的设置并选择相同的业务单位，它将显示一个运行时错误，即无法更改工作表名称，因为已经存在同名工作表。

我尝试使用 On Error 功能，但创建了一个新工作表，例如：Sheet16。

我的要求是要么继续处理文件，就好像什么都没发生一样，要么弹出一个带有预定义错误消息的 MsgBox，而不创建新的空白表。

有什么想法吗？

Answer 1

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

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