Checkboxes

[senojevets]

I am using a the following macro to insert checkboxes in a range, (F3:F72)how do I get them to appear centred in the column please?

Sub insertCheckboxes()

Dim myBox As CheckBox
Dim myCell As Range

Dim cellRange As String
Dim cboxLabel As String
Dim linkedColumn As String

cellRange = InputBox(Prompt:="Cell Range", _
Title:="Cell Range")

linkedColumn = InputBox(Prompt:="Linked Column", _
Title:="Linked Column")

cboxLabel = InputBox(Prompt:="Checkbox Label", _
Title:="Checkbox Label")

With ActiveSheet
For Each myCell In .Range(cellRange).Cells
With myCell
Set myBox = .Parent.CheckBoxes.Add(Top:=.Top, _
Width:=.Width, Left:=.Left, Height:=.Height)

With myBox
.LinkedCell = linkedColumn & myCell.Row
.Caption = cboxLabel
.Name = "checkbox_" & myCell.Address(0, 0)
.Display3DShading = True
End With

.NumberFormat = ";;;"
End With

Next myCell
End With
End Sub