Vba Excel复制到多个工作表

我有一份主工作表和几份副本（基本上，它们都是相同的布局，但每张工作表的日期不同） 我试图允许用户在主控上输入一些内容，然后打开一个输入框，允许用户选择多个工作表（选项卡），并将输入复制到所选选项卡

我似乎不知道如何允许用户选择一个或多个选项卡，然后将主副本中的数据转移到这些选项卡中的同一位置

Dim rng As Range
Dim tabs As Range

Sheets("MONTH").Select

Set rng = Application.InputBox(Prompt:="Select the cell(s) to copy", Type:=8)

Range(rng.Address).Select
Selection.Copy

Set tabs = Application.InputBox(Prompt:="Select the Tabs to copy", Type:=8)

For Each tabs In ActiveWindow.SelectedSheets
     MsgBox tabs.Name
Next tabs

'Sheets("d31").Activate
Worksheets(tabs).Select

Range(rng.Address).Select
ActiveSheet.Paste

Application.CutCopyMode = False

---

也许更容易给他们一种不同的方式来选择工作表-也许使用一个列表框。也可以在运行宏之前选择工作表并将其名称存储在数组中。但这并不理想，因为在运行代码之前，as依赖于选择。