CheckBox code, excel

[Student1000]

Ok, i have created checkbox(es) that i want it to add values to cells upon clicking. Once selected (checked), the option(value) should be populated on the next available row in column D within (D5:D20) range.
Uncheck to clear.The value will be a sentence like "Thank you for choosing our services, we appr your busin"

Here is what i can come up with which i know does not make much sense. Thanks

Private Sub CheckBox1_Click()

Application.WorksheetFunction.CountA (Range("D:D")) + 1
If CheckBox1 = 1 Then Application.Goto Sheet1.Range("D5:20")
& Cells(NextRow, 2) = "Thank you for choosing our services, we appr your busin"
Elseif activesheet.range().value = Null
NextRow =Application WorksheetFunction.CountA(Range("D:D"))+1
End Sub

 

[Damon Ostrander]

Hi again Student,

Great. You found it just as I was writing a response suggesting you look at that. Good job.

I suspect you are actually Student0001.

Damon