Hi Chip:

Just out of curiosity, why the CBool?

Regards,

Vasant.

"Chip Pearson" wrote in message
...
Todd,

Try something like the following in the user form's code module:

Private Sub CheckBox1_Click()
Me.TextBox1.Enabled = CBool(Me.CheckBox1.Value)
End Sub


"Todd uttenstine" wrote in message
...
I have CheckBox1 and TextBox1 on a UserForm. What is the
code that would enable entry into TextBox1 if CheckBox1
has a check in it?

Thank you

Todd Huttenstine