Sub add_checkboxes()
'
' Makro2ff Makro
'
Dim xxx As Range
Dim Textt
Textt = Selection.Address
'MsgBox Textt
'xxx = ActiveSheet.UsedRange
'MsgBox ActiveSheet.UsedRange.Select
   ' Range("N7:N19").Select
   Range(Textt).Select
   ' Range(xxx).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

    With Selection.Font
        .Name = "Marlett"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range(Textt).Select
End Sub