Автоматически создавать флажки

Используя часть кода из этого вопроса - макрос vba для встраивания OLEobject на основе ячейки:

Sub InsertToB()

    Dim cell As Range
    For Each cell In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
         If Not IsEmpty(cell) Then

            Dim ol As OLEObject
            Set ol = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
                                                Link:=False, _
                                                DisplayAsIcon:=True, _
                                                Height:=10)
            With ol
                .Top = cell.Offset(0, 1).Top
                .Left = cell.Offset(0, 1).Left
                .Object.Caption = "Bob"
            End With
        End If
    Next
End Sub

• Код зацикливается на активном листе и проверяет, пуста ли ячейка в A;
• Затем добавляет флажок;
• Точное положение флажка определяется с помощью .Top и .Left;