Making Checkboxe protection off when adding via Macro

Hi,

I have a Macro that adds checkboxes, I protect the sheet and when I run a different macro to uncheck all it doesn't work. Is there anyway that I can add the checkboxes but have the Protection Locked set to False? I've tested this by manually doing 3 of them and it works, but I have over 1000 boxes and no simple way to do them all at once.

Sub Addcheckboxes()
Dim Cell, LRow As Single
Dim chkbx As CheckBox
Dim MyLeft, MyTop, MyHeight, MyWidth As Double

Application.ScreenUpdating = False
LRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row

For Cell = 2 To LRow
    If Cells(Cell, "B").Value <> "" Then
        MyLeft = Cells(Cell, "A").Left
        MyTop = Cells(Cell, "A").Top
        MyHeight = Cells(Cell, "A").Height
        MyWidth = Cells(Cell, "A").Width
        ActiveSheet.CheckBoxes.Add(MyLeft, MyTop, MyWidth, MyHeight).Select
        With Selection
            .Caption = ""
            .Value = xlOff
            .Display3DShading = False
        End With
    End If
Next Cell

Application.ScreenUpdating = True

End Sub

Many thanks

Colin

Hey Neil,

I already have that on each of my sheets, what I have is certain fields that I want the user to interact with, and it works ok (including them ticking a check box) - however due to the sheer volume of check boxes I use a macro to add and remove them (as some weeks I will have 1000, other I may have 2000) - Each time my sheet protection works. What I can't get to work is my macro that removed all checks in the check boxes (so if someone saved the file they may have left an item way down the list checked. I just want a play it safe uncheck all button, but they just don't work unless I manually right click and untick the locked box on each checkbox

Thanks

Colin

Hey Neil, thanks for the help. Just tidying up some old posts