Свойство .Font для OLEObjects - VBA

Формулировка задачи:

Добрый день. Необходимо найти все чек боксы и поменять у них свойства шрифта. Код работает здорово. Но при изменении значения в False шрифт на обычный не меняется и остается жирным. Попытки с FontStyle "Regular" так же не помогли. Возможно для OLEObjects нужно как-то писать по-другому. Просьба подсказать.

Dim o As Object
For Each o In ThisWorkbook.Worksheets("List1").OLEObjects
        If InStr(1, o.Name, "CB_") > 0 Then
                With o.Object
                        .Font.Name = "Calibri"
                        .Font.Size = 11
                        .Font.Bold = True
                End With
        End If
Next

Решение задачи: «Свойство .Font для OLEObjects»

textual
                            Листинг программы 
                        

                            Private Sub Workbook_Open()
Call Bold 'Bold я назвал макрос с вашим кодом изменения фонта и
'перенёс ваш макрос в программный модуль Module, при True/False
'всё работает как надо
End Sub
                        