Fill an offset if checkbox is True

[Eddy2]

Hi
In a table: I am trying to fill an offset of multiple checkboxes, only if their state is True.

I came up with this code which most of the time fills ALL the adjacent cells, even the one which state is False. The strange thing is that sometimes the code seams to work. Any idea?

Private Sub InnOtraKunde_Click()
    Dim strFormulas As String
    Dim i As Integer
      
      strFormulas = "=IFERROR([@[Otra_]]*((1-[@[% Avslag Enhetspris kunde]])),""-"")"
      
       For i = 2 To 39
          If ActiveSheet.OLEObjects("CheckBox" & i).Object.Value = True Then
          OLEObjects("CheckBox" & i).TopLeftCell.Offset(0, -1).Value = strFormulas
                
            End If
    Next i
    
End Sub

 

[Eddy2]

Follow-up: The code works if the first- or the last offset cell has a value. If they ar empty it fills all the offset cells.

 

[Eddy2]

Its the "=" sign in the formula which messes up the code: "=IFERROR([@[Otra_]]*((1-[@[% Avslag Enhetspris kunde]])),""-"")"

Does anyone have a workaround for this?