Hey,

I'm trying to make a macro that loops trough checkboxes and see if they are true. If they are a cell should be updated with a value. This is not on a userform.

This is my code, but I can't get it to work. The checkboxes are named Disp1 to Disp139. I have made the Controls("Disp" & i) work, but that was when using checkboxes on a userform.

Any help? 

Sub CheckDisp()

    Dim i, j As Integer
    
    j = 3

    For i = 1 To 139 Step 1
    
        If Sheets("Input data").Controls("Disp" & i).Value = True Then
            Sheets("Calc act").Range("A" & j).Value = 1
        Else
            Sheets("Calc act").Range("A" & j).Value = 0
        End If

        j = j + 1
    
    Next i


End Sub