I have two txtboxes on a userform.
txtheight and txtwidth, I want to add a checkbox that will change the value
of the height box (11) to the value of the width box (14) and vice versa.
In other words, change the two boxes from 11x14 to 14x11.

Thank you
CR

Try something like this...

Private Sub CheckBox1_Click()
Dim Temp As String
Temp = txtheight.Value
txtheight.Value = txtwidth.Value
txtwidth.Value = Temp
End Sub

--
Rick (MVP - Excel)


"CR" wrote in message
m...
I have two txtboxes on a userform.
txtheight and txtwidth, I want to add a checkbox that will change the
value of the height box (11) to the value of the width box (14) and vice
versa.
In other words, change the two boxes from 11x14 to 14x11.

Thank you
CR

Hi,

Assign this code to your checkbox and ti will flip the values when checked -
un-checked,

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
tempval = Txtheight.Text
Txtheight.Text = Txtwidth.Text
Txtwidth.Text = tempval
End If
If CheckBox1 = False Then
tempval = Txtwidth.Text
Txtwidth.Text = Txtheight.Text
Txtheight.Text = tempval
End If
End Sub

Mike

"CR" wrote:

I have two txtboxes on a userform.
txtheight and txtwidth, I want to add a checkbox that will change the value
of the height box (11) to the value of the width box (14) and vice versa.
In other words, change the two boxes from 11x14 to 14x11.

Thank you
CR