ExcelVBAマクロでシートを初期化(全てのセルの内容を削除)する

他のシートも削除したかったので、プロシージャを分けてあります。特定のシートだけ初期化するのであれば、もっと簡単になりますね。

Sub all_clear_sheet(ByVal sheet_name As String)
    'アクティブシートの切り替え
    ActiveWorkbook.Worksheets(sheet_name).Activate
    'アクティブシートの図形・画像を全て削除
    ActiveSheet.DrawingObjects.Delete
    'アクティブシートの内容を全て削除
    ActiveSheet.Cells.Clear
    'アクティブシートのコメントを全て削除
    ActiveSheet.Cells.ClearComments
End Sub

Sub clear_sheet1()
    'Sheet1の全てのセルの内容を削除
    Call all_clear_sheet("Sheet1")
End Sub

Excel2010で動作確認しました。