Checkboxes

  • Thread starter Thread starter Anders J.
  • Start date Start date
A

Anders J.

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
 
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?
 
F5
Special
Objects
OK
Delete


Anders J. said:
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?
Click to expand...
 
Back
Top