0

必要なワークシートが変更されるたびにマクロを変更する必要はなく、セル参照を使用して配列を定義しようとしています。

シートのセル B29 に必要なシートがリストされているので、試してみました

.Sheets(Array(WorkSheets("Approver 4").Range("B29"))).Copy

しかし、これはうまくいきませんでした。

そのため、現時点では、シート名を次のようにリストすることに固執しています。

.Sheets(Array("Scenario Summary", "Scenario 1-3 ML(JA) Logon Pages", "Scenario 4-6 ML(ZH) Logon Pages", "Scenario 7-9 ML(ZH) Logon Pages", "Approver 4")).Copy

Set Sourcewb = ActiveWorkbook

'Copy the sheets to a new workbook
With Sourcewb
    Set TheActiveWindow = ActiveWindow
    Set TempWindow = .NewWindow
    'copy the below sheet names from the Worksheets cell (B29) on the worksheet
    .Sheets(Array("Scenario Summary", "Scenario 1-3 ML(JA) Logon Pages", "Scenario 4-6 ML(ZH) Logon Pages", "Scenario 7-9 ML(ZH) Logon Pages", "Approver 4")).Copy
End With

助言がありますか?どうもありがとう!

4

1 に答える 1