Greetings,

I had been trying to find the faster and most optimal way to add checkboxes aligned etc, i came down to this being the best so far

Sub CellCheckbox()
    Dim myCell As Range
    Dim myRng As Range
    Dim CBX As CheckBox

    For Each myCell In Selection
        With myCell
            Set CBX = .Parent.CheckBoxes.Add( _
                        Top:=.Top, _
                        Left:=.Left, _
                        Width:=1, _
                        Height:=1)
            CBX.Name = .Address(0, 0)
            CBX.Caption = ""
            CBX.Left = .Left + ((.Width - 17) / 2)    '.Left + ((.Width - CBX.Width) / 2)
            CBX.Top = .Top + ((.Height - CBX.Height) / 2)
            CBX.LinkedCell = .Offset(0, 9).Address(external:=True)
            CBX.Value = xlOff
        End With
    Next myCell
End Sub

The problem and unnatural thing is that when i print it from my computer, everything looks ok, but other computers are unable to print the checkboxes properly, they dont end up showing anything like a square. I tried reducing or increasing the checkbox size but still no difference, any ideas what must be going wrong?