установить значение для указанной ячейки во всех листах по VBA

Question

Я хочу установить значение для указанной ячейки (B1) на всех листах в моей книге по VBA.Я использовал этот код:

Sub Set_Value()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Range("B1") = "1"
Next ws

End Sub

, но он работает только для активного листа, а не для всех листов, которые есть в книге.

Любая идея приветствуется.Спасибо вам, ребята.:)