I have very many rows I would like to create a checkbox for (we're talking
about 800 -900 rows) Is there a way to create this and include the link to
the cell that is just right of it.

E.g. A1 should be all checkbox from row A1 to A900 and then they should each
be linked to B1 to B900 respectively.

In advance. thanks

Sub Macro1()
Dim cell As Range
Dim cbx As CheckBox

For Each cell In Range("D5:D25")
Set cbx = ActiveSheet.CheckBoxes.Add(241.5, 51.75, 46.5, 17.25)
With cbx
.Value = xlOff
.LinkedCell = cell.Address
.Display3DShading = False
.Height = cell.Height
.Top = cell.Top
.Left = cell.Left + cell.Width
End With
Next
End Sub


"Anders J." wrote:

I have very many rows I would like to create a checkbox for (we're talking
about 800 -900 rows) Is there a way to create this and include the link to
the cell that is just right of it.

E.g. A1 should be all checkbox from row A1 to A900 and then they should each
be linked to B1 to B900 respectively.

In advance. thanks

Thank you, saved me for heaps of time!

I'm pretty new in the VB coding. The cbx appeared in column B. How do i
remove my old ones from column A and manipulate the code you sent me to put
the cbx in column A instead of B?



"Patrick Molloy" wrote:


Sub Macro1()
Dim cell As Range
Dim cbx As CheckBox

For Each cell In Range("D5:D25")
Set cbx = ActiveSheet.CheckBoxes.Add(241.5, 51.75, 46.5, 17.25)
With cbx
.Value = xlOff
.LinkedCell = cell.Address
.Display3DShading = False
.Height = cell.Height
.Top = cell.Top
.Left = cell.Left + cell.Width
End With
Next
End Sub


"Anders J." wrote:

I have very many rows I would like to create a checkbox for (we're talking
about 800 -900 rows) Is there a way to create this and include the link to
the cell that is just right of it.

E.g. A1 should be all checkbox from row A1 to A900 and then they should each
be linked to B1 to B900 respectively.

In advance. thanks

F5
Special
Objects
OK
Delete


"Anders J." wrote:

Thank you, saved me for heaps of time!

I'm pretty new in the VB coding. The cbx appeared in column B. How do i
remove my old ones from column A and manipulate the code you sent me to put
the cbx in column A instead of B?



"Patrick Molloy" wrote:


Sub Macro1()
Dim cell As Range
Dim cbx As CheckBox

For Each cell In Range("D5:D25")
Set cbx = ActiveSheet.CheckBoxes.Add(241.5, 51.75, 46.5, 17.25)
With cbx
.Value = xlOff
.LinkedCell = cell.Address
.Display3DShading = False
.Height = cell.Height
.Top = cell.Top
.Left = cell.Left + cell.Width
End With
Next
End Sub


"Anders J." wrote:

I have very many rows I would like to create a checkbox for (we're talking
about 800 -900 rows) Is there a way to create this and include the link to
the cell that is just right of it.

E.g. A1 should be all checkbox from row A1 to A900 and then they should each
be linked to B1 to B900 respectively.

In advance. thanks