使用选定单元格中的动态数组复制工作表

Question

我想通过将工作表复制到新工作簿中来从活动的excel模板中创建一个带有标签表的新工作簿。理想情况下，我希望通过选择一个列表（包含工作表名称）并运行一个宏来创建一个新工作簿，并将选定的单元格作为新工作表名称。

我尝试了各种在线发现的方法，但最接近的方法如下：

我可以使用以下基本子项来创建新的工作表：

Sub Copy_Worksheets()
Worksheets(Array("ACC_HF", "ACC_Aflac")).Copy
End Sub

但是数组中的值是硬编码的，并且每次都会更改。我列出了所有可能的选项卡/工作表名称，并且希望能够选择其他单元格并运行宏。

当前，我无法将所选单元格传递给数组函数

Worksheets(Array(XXXXX).Copy

Sub array_work()
Dim tab_name As Variant
tab_name = Range("A2:A5").Value
Range("c2:c5") = tab_name

& 

End Sub
Sub Copy_Worksheets()
Worksheets(Array("ACC_HF", "ACC_Aflac")).Copy
End Sub

我想选择一个范围，该范围应传递给的数组函数 Worksheets(Array("ACC_HF", "ACC_Aflac")).Copy，将输出一个新的工作簿，其中包含从模板复制的工作表。