I need to make multiple checkboxes do the same thing ... be linked to the checkboxes on another sheet (Sublist). So that when the checkbox on the Sublist is checked, it automatically checks this checkbox on the sheet Checklist. I also need multiples of that checkbox (B14-B114) This is the code I have but I can't figure out how to link it to the Sublist.
[FONT="]Sub CellCheckbox()
Dim myCell As Range
Dim myRng As Range
Dim CBX As CheckBox[/FONT]
[FONT="]
With ActiveSheet
.CheckBoxes.Delete 'nice for testing!
Set myRng = .Range("A1:A10") 'change to the range you want
End With[/FONT]
[FONT="]
For Each myCell In myRng.Cells
With myCell
Set CBX = .Parent.CheckBoxes.Add _
(Top:=.Top, _
Left:=.Left, _
Width:=.Width, _
Height:=.Height)
CBX.Name = "Allan_" & .Address(0, 0)
CBX.Caption = "" 'or what you want
CBX.Value = xlOff[/FONT]
[FONT="]
'I like to use the same cell as the linked cell
'with a number format of ;;;
'I can't see the true/false in the worksheet, but it
'still appears in the formula bar
CBX.LinkedCell = .Address(external:=True)
.NumberFormat = ";;;"
End With
Next myCell
End Sub[/FONT]
[FONT="]Sub CellCheckbox()
Dim myCell As Range
Dim myRng As Range
Dim CBX As CheckBox[/FONT]
[FONT="]
With ActiveSheet
.CheckBoxes.Delete 'nice for testing!
Set myRng = .Range("A1:A10") 'change to the range you want
End With[/FONT]
[FONT="]
For Each myCell In myRng.Cells
With myCell
Set CBX = .Parent.CheckBoxes.Add _
(Top:=.Top, _
Left:=.Left, _
Width:=.Width, _
Height:=.Height)
CBX.Name = "Allan_" & .Address(0, 0)
CBX.Caption = "" 'or what you want
CBX.Value = xlOff[/FONT]
[FONT="]
'I like to use the same cell as the linked cell
'with a number format of ;;;
'I can't see the true/false in the worksheet, but it
'still appears in the formula bar
CBX.LinkedCell = .Address(external:=True)
.NumberFormat = ";;;"
End With
Next myCell
End Sub[/FONT]