Sub Macro2()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("sheet7")
sh.Activate
Dim fieldlookup As Worksheet
Set fieldlookup = ThisWorkbook.Sheets("Fieldlookup")
With fieldlookup
lr = .Cells(Rows.Count, 3).End(xlUp).Row
End With
For i = 1 To lr
sh.CheckBoxes.Add(2, 20 * i, 300, 10).Select
With Selection
.Value = xlOff
.LinkedCell = "$L$i"
.Display3DShading = False
.Caption = fieldlookup.Cells(i + 1, 3)
End With
Next i
End Sub
//When I click one of the checkboxes they are all changing. How can I fix this ? ty,
Bookmarks