--

HTH

RP
(remove nothere from the email address if mailing direct)


"ltyson" <ltyson.1u4ged_1124640317.6029@excelforum-nospam.com> wrote in
message news:ltyson.1u4ged_1124640317.6029@excelforum-nospam.com...
>
> I have two sub routines, the first one does exactly what I want. If the
> checkbox on the user form is checked, then the corresponding rectangle
> is filled in on the worksheet. If I uncheck the check box, then the
> corrsponding rectangle is unfilled for lack of a better term.
>
> Sub CheckBox368_Click()
> i = 368
> If CheckBox368 = True Then
> Sheets("Order_Entry").Shapes("Rectangle " & i).Select
> Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
> Selection.ShapeRange.Fill.Visible = msoTrue
> Selection.ShapeRange.Fill.Solid
> End If
> If CheckBox368 = False Then
> Sheets("Order_Entry").Shapes("Rectangle " & i).Select
> Selection.ShapeRange.Fill.Visible = msoFalse
> End If
> End Sub
>
>
> Problem is I want the checkbox to use the variable ' i ' like the
> rectangle entry does, but when I change the code it always acts upon
> only the true portion whether I have the check box checked or not. So
> even if the check box is unchecked or false so to speak it sees it acts
> as if it is true in this sub.
>
> Sub CheckBox368_Click()
> i = 368
> If ("CheckBox" & i) = True Then
> Sheets("Order_Entry").Shapes("Rectangle " & i).Select
> Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
> Selection.ShapeRange.Fill.Visible = msoTrue
> Selection.ShapeRange.Fill.Solid
> End If
> If ("CheckBox" & i) = False Then
> Sheets("Order_Entry").Shapes("Rectangle " & i).Select
> Selection.ShapeRange.Fill.Visible = msoFalse
> End If
> End Sub
>
> I am sure it is just a syntex type issue but do not understand why it
> never sees the check box as false if I unselect it like it does in the
> first sub.
>
> Thanks,
> Larry
>
>
> --
> ltyson
> ------------------------------------------------------------------------
> ltyson's Profile:
http://www.excelforum.com/member.php...fo&userid=2768
> View this thread: http://www.excelforum.com/showthread...hreadid=397581
>