Excelの全部のシートの特定セルを置換する

Module1.bas

Attribute VB_Name = "Module1"

Sub Clear()
  Dim wsCurrent As Worksheet
  For Each wsCurrent In ThisWorkbook.Worksheets
    wsCurrent.Range("xy").Value = "foo"
  Next
End Sub