перебрать все листы

Question

Я хочу заблокировать одну ячейку стержня на всех листах в рабочей книге.

Sub Code()

  Dim ws As Worksheet

  ' ...
  For Each ws in Worksheets
    With ws
      Range("B3").Select
      ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With
  Next

End Sub