Check boxes macro

Hi Colhawk

Try this...let me know of issues

Sub CheckBox19_Click()
    Dim oCheck As Object
    Set oCheck = Sheet1.CheckBoxes("Check Box 19")
    If oCheck.Value = 1 Then
        Range("D2").FormulaR1C1 = _
                "=+IF(R[20]C[-2]="""","""",VLOOKUP(R[20]C[-2],'Payment list'!R[1]C[-3]:R[31]C[-2],2))"
        Range("D3").Select
    Else
        Range("D2").Value = ""
    End If
End Sub