Em chạy 2 Macro cho tất cả các sheet trong file mà ko được, giúp em với!!!

[quocct3000]

Các bác xem dùm công thức em viết vậy đúng chưa? nó không chạy 2 macro cho các sheet mà chỉ chạy hiện tại cho sheet đang mở ah.

Sub WorksheetLoop()

Dim WS_Count As Integer
Dim I As Integer

' Set WS_Count equal to the number of worksheets in the active
' workbook.
WS_Count = ActiveWorkbook.Worksheets.Count

' Begin the loop.
For I = 1 To WS_Count

Call Macro1
Call Macro2

Next I

End Sub

 

[quocct3000]

chạy được rồi các bác ơi.

Sub AllSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Activate

Call Macro1
Call Macro2

Next ws
End Sub