避免创建重复的工作表

Question

我正在尝试制作宏来制定预算。我有不同的业务部门和多个成本中心。基本上我想将这个启用宏的工作表传播到不同的业务部门，并使用预定义的参数进行预算。

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

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

我的要求是继续使用该文件，就像没有发生任何事情一样，或者弹出带有预定义错误消息的MsgBox而不创建新的空白页。

有什么想法吗？

Answer 1

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

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