excel批量替换多个sheet某个单元格的值

Sub tst()
Dim i%
For i = 1 To Sheets.Count
 Sheets(i).Cells(1, 1) = "test"
Next
End Sub