フォームツールバーのチェックボックスやドロップダウンコンボボックス
などをシートに配置した場合で、入力前の初期化を行う際、一括で処理を行う
場合は次のようになります。

（前提）フォームツールバーのチェックボックス、ドロップダウンコンボボッ
　　　　クスをそれぞれ複数個ワークシート上に配置。

（サンプル１）

Sub InitializeFormControls()

    Dim obj As Object
    
    For Each obj In ActiveSheet.DrawingObjects
    If obj.Name Like "Check Box*" Then
        obj.Value = False
    ElseIf obj.Name Like "Drop Down*" Then
        obj.ListIndex = 0
    End If
    
    Next

End Sub

（サンプル２）

Sub InitializeFormControls2()

    Dim i As Integer
    
    With ActiveSheet.CheckBoxes
        For i = 1 To .Count
            .Item(i).Value = False
        Next i
    End With
    
    With ActiveSheet.DropDowns
        For i = 1 To .Count
            .Item(i).ListIndex = 0
        Next i
    End With

End Sub