Change Check box Value to Text

[MLI]

I have a few Checkboxes on a form that populate cells on a excel sheet when selected. I would like to populate the cells with "" when Checkbox Value is "False" (Not Checked) and "Yes" when Checkbox Value is "True" (Checked)

[Bob Phillips]

With Worksheets("Sheet1").Range("A1")
    If Me.CheckBox1.Value Then
        .Value = "Yes"
    Else
         .Value = ""
    End If
End With

[MLI]

Thanks XLD, much appreciated.