Checkbox font og navn

Sub Opret_CheckBoxes_i_Område()
Dim c As Range
Dim myCBX As CheckBox
Dim wks As Worksheet
Dim rngCB As Range
Dim strCap As String

Set wks = ActiveSheet
Set rngCB = wks.Range("B2:C10")
'Set rngCB = Selection

    With rngCB.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With

strCap = "Mt-er"

For Each c In rngCB
  With c
    Set myCBX = wks.CheckBoxes.Add _
      (Top:=.Top, Width:=.Width, _
      Height:=.Height, Left:=.Left)
  End With
  With myCBX
    .Name = "cbx_" & c.Address(0, 0)
    .LinkedCell = c.Offset(0, 0) _
        .Address(external:=True)
    .Caption = strCap
'    .OnAction = ThisWorkbook.Name _
'        & "!mycbxMacro"
  End With
Next c

End Sub

Option Explicit

Dim ws As Worksheet
Dim ObChBox As OLEObject
Dim Area As Range, Cell As Range
Dim Count As Integer
Dim Sha As Shape

Sub SletCheckboxe()
    Set ws = ActiveSheet
    For Each Sha In ws.Shapes
        Sha.Delete
    Next
End Sub
Sub LavCheckbox()
    Set ws = ActiveSheet
    Set Area = ws.Range("B2:B9")
    Count = 0
    For Each Sha In ws.Shapes
        Sha.Delete
    Next
    For Each Cell In Area
        Count = Count + 1
        Set ObChBox = ws.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
            DisplayAsIcon:=False, Left:=10, Top:=10, Width:=10, Height:=10)
        With ObChBox
            .Name = "NyCheckBox" & Count
            .Object.Caption = "Mt-er"
            .Top = Cell.Top + 1
            .Left = Cell.Left + 1
            .Width = Cell.Width - 2
            .Height = Cell.Height - 2
            .LinkedCell = Cell.Address
            With .Object.Font
                .Name = "Times New Roman"
                .Size = 8
            End With
        End With
    Next
End Sub