In the userform module-

Private Sub CheckBox1_Change()
ActiveSheet.Range("A1").Value = IIf(Me.CheckBox1.Value, "Yes", "No")
End Sub

Regards,
Peter T


"Mekinnik" wrote in message
...
I am not sure how to create this. I am using Excel 2003. I have 3
checkboxes
on a user form and I would like that when the user checks which ever box
and
clicks the add button it will return to the worksheet a value of YES and
vise-versa if they are not checked it will return a value of NO to the
approiate column,cell.When the add button is clicked.