Excel VBAでシート全体をクリア

Sub test()
  Worksheets("Sheet1").Cells.Clear
End Sub