Как обратиться к одному и тому же диапазону на всех листах книги

[Nata75]

Доброго времени суток! Подскажите новичку, как обратиться к одному и тому же диапазону на всех листах книги сразу. Пыталась так:

Sub Опоздали()
Dim vars As Object
For Each vars In ActiveWorkbook.Sheets
If vars.Name <> "Лист" And vars.Name <> "Итого" Then
Range("C2:C21").Select
Selection.Locked = True
Selection.FormulaHidden = False
End If
Next vars
End Sub

но действует только на активный лист. В чем ошибка??

[doober]

Ответ на два ваших поста в одном вложении

[Nata75]

doober, спасибо огромное за помощь!!!!!!!!!
Я правда мало поняла, как это работает, но ведь РАБОТАЕТ!
Теперь попробую распространить проверку даты на все столбцы.

[А_Владимир]

Проще надо, а то громадье!
Именные файлы раздать препам,
чтоб прислали к определенному числу.
И в автомате суммировать!