[Solved] Center add check box

I need the check box to be center in the cell right now there on the left side.
Thank you

Formula:

Sub AddCheckBoxes()

    On Error Resume Next

    Dim c As Range, myRange As Range

    Set myRange = Selection

    For Each c In myRange.Cells

        ActiveSheet.CheckBoxes.Add(c.Left, c.Top, c.Width, c.Height).Select

            With Selection

                .LinkedCell = c.Address

                .Characters.text = ""

                .Name = c.Address

            End With

            c.Select

            With Selection

                .FormatConditions.Delete

                .FormatConditions.Add Type:=xlExpression, _

                    Formula1:="=" & c.Address & "=TRUE"

            End With

        Next

        myRange.Select

End Sub