Chạy Macro1 lần lượt cho các sheet đã được chỉ định từ trước

[hoanglocphat]

Các bạn giúp tôi trường hợp như sau:
Trong 1 File có nhiều sheet, trong đó có các sheet như : T00, T01, T02 ... T12 và 1 một số các sheet khác. Và có 1 Macro1
Bình thường tại sheet T01 tôi chạy Macro1, sau khi chạy xong tôi qua sheet T02 và tiếp tục chạy Macro1, sau khi chạy xong tôi qua sheet T03 và tiếp tục chạy Macro1 ... cứ lần lượt như vậy cho tới sheet T12
Các bạn cho tôi hỏi có cách nào để chạy Macro1 lần lượt cho các sheet từ T01, T02, T03, ..., cho đến sheet T12 không? Cảm ơn các bạn

 

[VetMini]

curSheet = ActiveSheet.Name
For each sName in Split("T01,T02,T03,...,T12", ",")
Sheets(sName).Activate
Macro1
Next sName
Sheets(curSheet).Activate

 

[hoanglocphat]

curSheet = ActiveSheet.Name
For each sName in Split("T01,T02,T03,...,T12", ",")
Sheets(sName).Activate
Macro1
Next sName
Sheets(curSheet).Activate

Code chạy ổn định
Cảm ơn bạn nhiều!