Insert formula if CheckBoxes.Value = xlOn

[Eddy2]

Hi
I want to insert a formula in the cell left to a check box, if the CheckBoxes.Value = xlOn :

Sub test()


For i = 53 To 102
If ActiveSheet.CheckBoxes(i).Value = xlOn Then
ActiveSheet.CheckBoxes(i).TopLeftCell.Offset(1, 0).Formula = ("=2+2")
End If

Next i
End Sub

My problem: When there is an = sign in the formula (e.g. ("=2+2")), the formula is inserted to all the cells, eaven if the check boxes = xlOf.

If i remove the = sign (e.g. ("2+2")) the formula is inserted only in the cells to left of the check boxes = xlOn. In other word the expected behaviour. Any idea?

Eivind

 

[Domenic]

Actually, as it stands, your code inserts the formula in the cell below the checkbox, not in the cell to the left of it. So, for example, if the checkbox lies within the B2, the formula will be inserted in B3, not A2. Is this your intent? Could this be the issue?

 

[Eddy2]

Actually, as it stands, your code inserts the formula in the cell below the checkbox, not in the cell to the left of it. So, for example, if the checkbox lies within the B2, the formula will be inserted in B3, not A2. Is this your intent? Could this be the issue?

That was just to compensate for another thing.

To illustrate my problem (without check boxes):
https://youtu.be/2WFY9CdyD5w

https://drive.google.com/drive/folders/12SQWhjNeHtKNpscrsa3I4SQPXxjwqi7h?usp=sharing