Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("A1") = "S"
ElseIf CheckBox1.Value = False Then
Range("A1") = "N"
End If
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 12/09/2010 5:51 pm