Application Error 1004:

[Glasgowsmile]

I've got this formula but keep getting a run time error (Application-defined or object-defined error). I've read about the error a few times but I don't understand what's causing the problem.

It's just a checkbox and I want to replace the formula used based on the status of the checkbox.

Private Sub CheckBox1_Click()

If Range("$E$39") = "True" Then
    Range("F44").Formula = "=XLOOKUP($B44,Data!$M:$M,Data!R:R)"
Else
    Range("F44:F45").Formula = "=IFERROR(XLOOKUP($B44,Data!$M$3:$M$101,Data!R:R),"")"
End If
End Sub

 

[Candyman8019]

GIve this a try...essentially doubling the quotes in your second formula:

Private Sub CheckBox1_Click()

If Range("$E$39") = "True" Then
Range("F44").Formula = "=XLOOKUP($B44,Data!$M:$M,Data!R:R)"
Else
Range("F44:F45").Formula = "=IFERROR(XLOOKUP($B44,Data!$M$3:$M$101,Data!R:R),"""")"
End If
End Sub

 

[GWteB]

You need double quotes:

Private Sub CheckBox1_Click()

If Range("$E$39") = "True" Then
    Range("F44").Formula = "=XLOOKUP($B44,Data!$M:$M,Data!R:R)"
Else
    Range("F44:F45").Formula = "=IFERROR(XLOOKUP($B44,Data!$M$3:$M$101,Data!R:R),"""")"
End If
End Sub

 

[Glasgowsmile]

Yeah, I discovered on my own it was the double quotes... I always make that mistake. Thanks!

 

[GWteB]

Glad we could help and thanks for the feedback