Hi Tommy,
Something like this may get you going. Used macro recorder and then tweaked
the code.
Sub BoxesAway()
Dim i As Integer
Dim j As Integer
Dim k As Integer
j = 1.5
k = 1
For i = 1 To 5
ActiveSheet.CheckBoxes.Add(j, 10.25, 24, 17.25).Select
Selection.ShapeRange.ScaleWidth 1.91, msoFalse, msoScaleFromTopLeft
Selection.Characters.Text = "Howard" & k
j = j + 48
k = k + 1
Next
Range("A1").Select
End Sub
HTH
Regards,
Howard
