OLEオブジェクトのチェックボックスをコレクションオブジェクトに入れて評価したい

前提・実現したいこと

発生している問題・エラーメッセージ

If v.Value = True Then

オブジェクトが必要です

該当のソースコード

Private Sub CommandButton4_Click()
Dim columnCount As Integer
columnCount = Cells(1, Columns.Count).End(xlToLeft).Column \ 2

Dim rowCount As Integer
rowCount = Range("A4").Value

Dim chBCount As Integer 'ﾘﾊの番号
chBCount = rowCount * columnCount


'列チェックボックスをまとめてカウント
Dim i As Integer
For i = 1 To columnCount
 Dim Col_c As New Collection '列をまとめるコレクションオブジェクトを作って当該チェックボックスを格納＊列数
 
  Dim j As Integer '格納するチェックボックス番号
  For j = chBCount + 1 + (i - 1) * rowCount To chBCount + rowCount + (i - 1) * rowCount
    With Col_c
        .Add "CheckBox" & j
    End With
  Next
  
 Dim v As Variant
 Dim dayCount As Integer
 dayCount = 0
 For Each v In Col_c
  
  If v.Value = True Then
  dayCount = dayCount + 1
  End If
 Next

 If dayCount = 1 Then
  With Cells(rowCount + 5, i * 2)
      .Interior.Color = RGB(255, 0, 0)
      .Font.Color = RGB(255, 255, 255)
      .Value = dayCount
  End With
 ElseIf dayCount > 9 Then
  With Cells(rowCount + 5, i * 2)
      .Interior.Color = RGB(0, 255, 255)
      .Value = dayCount
  End With
 Else
  Cells(rowCount + 5, i * 2).Value = dayCount
 End If
 
Next