Macro не собирается следующей WS

Question

По какой-то причине мой код не подходит к следующему листу, любая помощь будет оценена по достоинству.

CleanUpMetricsBooks() 

Dim ws As Worksheet 

For Each ws In ActiveWorkbook.Worksheets 

Range("M:N,P:Q,U:V,X:Y").EntireColumn.Delete 

End 

Next ws 

End Sub 

Answer 1

Вы должны указать, какой лист вы «говорить» о, здесь, просто добавьте Ws. перед тем Range(...

Потому что, если не указать, какой лист вы работаете, по умолчанию, Excel будет рассмотрите Активный лист!

Sub CleanUpMetricsBooks() 
Dim ws As Worksheet 

For Each ws In ActiveWorkbook.Worksheets 
    ws.Range("M:N,P:Q,U:V,X:Y").EntireColumn.Delete 
Next ws 

End Sub