M
MS Forum Newsgroup User
Hi,
I have a script that I am using that creates a checkbox in a range but am
having problems trying to create this for the relative cell and linking this
to a relative row cell,
i.e. if the current cell is R16 create a checkbox and link the value to S16.
Sub CellCheckbox()
Range("R15").Offset(1, 0).Select
For i = 1 To 50
'add the checkbox
ActiveSheet.CheckBoxes.Add(646.5, 203.25, 24, 17.25).Select
ActiveSheet.Shapes("Check Box 1212").Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$X$17"
End With
Next i
End Sub
I have a script that I am using that creates a checkbox in a range but am
having problems trying to create this for the relative cell and linking this
to a relative row cell,
i.e. if the current cell is R16 create a checkbox and link the value to S16.
Sub CellCheckbox()
Range("R15").Offset(1, 0).Select
For i = 1 To 50
'add the checkbox
ActiveSheet.CheckBoxes.Add(646.5, 203.25, 24, 17.25).Select
ActiveSheet.Shapes("Check Box 1212").Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$X$17"
End With
Next i
End Sub