【VBA】初期化のクラス

VBAで、ページを初期化してから動かしたいときに使うモジュール

Sub Initialize()
   '全セルを選択
    ActiveSheet.Cells.Select
    '値・数式クリア
    Selection.ClearContents
    '書式クリア
    Selection.ClearFormats
    'すべてのセルの幅を13.5に設定
    Selection.RowHeight = 13.5
    'すべてのセルの高さを8.38に設定
    Selection.ColumnWidth = 8.38
    'コメントクリア
    Selection.ClearComments
    '値・数式、書式、コメントを一緒にクリア
    Selection.Clear
    'グラフのオブジェクトがある場合は、それを削除する。
    If ActiveSheet.ChartObjects.Count <> 0 Then
       ActiveSheet.ChartObjects.Delete
    End If
End Sub

ちなみにフォームを消したくなかったのでオートシェイプ等オブジェクトは消せませんｗ