通过VBA为“所有图纸”中的指定单元格设置值

Question

我想通过VBA为工作簿中所有工作表中的指定单元格（B1）设置一个值。 我使用了这段代码：

Sub Set_Value()

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

End Sub

但是它仅适用于活动工作表，而不适用于工作簿中的所有工作表。

任何想法都值得欢迎。感谢大伙们。 ：）