Hi AreJay,
I moved your code from the worksheet to a module and that message doesn't come up anymore - unfortunately the code is still not working because the Application.Caller throws Error 2023
I also changed this:
Sub MakeCheckBoxes() 'Run once to make checkboxes
Dim cItem As Range
Dim C As Range
Worksheets(sMasterSheetName).CheckBoxes.Delete
With Worksheets(sMasterSheetName)
For Each cItem In .Range("C2", .Cells(Rows.Count, 3).End(xlUp))
If Not cItem.Interior.ColorIndex > 0 Then
Set C = cItem.Offset(0, 3)
With .CheckBoxes.Add(C.Left, C.Top, C.Width, C.Height)
.Caption = ""
.Value = True
.Name = cItem.Text
.OnAction = "CheckBoxClick"
End With
End If
Next cItem
End With
End Sub
*Would you be OK with ActiveX checkboxes instead?
Bookmarks