Reduce this macro

[magicool]

Hello,
How can I make this macro easier (smaller)? The same action is performed on an array of sheets (not all sheets).

Please Login or Register  to view this content.

[DonkeyOte]

Perhaps:

Please Login or Register  to view this content.

(if the sheet names are all numeric and sequential you could just use a numeric loop rather than a Sheets Array)

[magicool]

Thank you! It is perfect.
The sheet names are all numeric and sequential. How to use a numeric loop? Also is it possible to use that on a range of sequential sheets (regardless their names)?

[DonkeyOte]

If we assume the sheet names are sequential and numeric then:

Please Login or Register  to view this content.

If the names were themselves not numeric but the sheets were in sequence physically in the file (eg first 9 sheets) then you can use the number as the Index position - ie remove the ""& from the With statement.

[magicool]

Thank you! This is very fast!