標準モジュール部
モジュール：Main
Option Explicit

Private mSheetParameterEntity As ISheetParameterEntity

'メイン処理
Public Sub Main(ByVal targetSheet As Worksheet)

Dim factory As New sheetParameterFactory

On Error GoTo Error_Handler

Application.ScreenUpdating = False

Set mSheetParameterEntity = factory.makeSheetParameter(targetSheet)
Call Initialize
Call TableControl.CopyTable
Call SheetControl.Sort
Call TableControl.ReleaseTable
Call SheetControl.MakeSummary
Call SheetControl.SelectCellTopLeft
GoTo Finaly