Checkboxes

hola, francisco !

Quiero en VBA referenciar un "checkbox" a una celda. La manerade hacerlo es:
ActiveSheet.Shapes("Check Box 7").Select
Selection.LinkedCell = "D6"
El problema es que me gustaria poderlo meter a un loop, para que cree y referencie varias checkboxes
y poder ir modificando el lugar donde pegue la figura y su referencia con un contador (lo estoy pensando con for).
Es posible hacer esto y si si, como.

el siguiente es un ejemplo que incrusta 3 casillas de verificacion (de formularios)
nota: el bucle avanza (1 a 3) usando la variable "n" miltiplicada por dos para hacer referencia al numero de fila
o sea 1,2,3 seran las filas 2,4,6 de la columna A (columna usada en el ejemplo)

revisalo, analizalo, preubalo, saca conclusiones y...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Incrusta_CheckBoxes()
Dim n As Byte, Celda As String, _
Arr As Single, Izq As Single, Ancho As Single, Alto As Single
For n = 1 To 3
With ActiveSheet
With .Range("a" & n * 2)
Izq = .Left
Arr = .Top
Ancho = .Width
Alto = .Height
Celda = .Address
End With
With .CheckBoxes.Add(Izq, Arr, Ancho, Alto)
.LinkedCell = Celda
End With
End With
Next
End Sub