How to resolve define worksheets array

[kelvinhang]

Original set wsSheet = wbBook.Worksheets("01"), but would like to change it as worksheets array from "01" to "02". How can I resolve?

 

[combo]

There are some issues to solve.

First, declare worksheets, use As Sheets instead:

Dim wsSheet As Sheets

Second, work with the array of worksheet. It is possible only to apply logic from single sheet and apply to the rest, and it seems that activate/select is required:

wsSheets.Select
wsSheets.Item(1).Activate
wsSheets.Item(1).Cells(1, 1).Select
ActiveCell.Formula = "1"

If the target structure of of formulas/formats is has to be the same across sheets and you already have a template worksheet, you can use FillAcrossSheets

If the final result depends on contents of each sheet (colour testing), process each sheet separately.