variable help....

Bob thank you. The one word 'controls' was the missing peice. This new code pasted below now works perfect:

Sub CheckBox359_Click()
i = 359
If Controls("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 Controls("CheckBox" & i) = False Then
Sheets("Order_Entry").Shapes("Rectangle " & i).Select
Selection.ShapeRange.Fill.Visible = msoFalse
End If
End Sub

It is odd to me why i have to use:

If Controls("CheckBox" & i) = True Then

if I use the variable but:

if Checkbox359 = True Then

works fine if I don't use the variable. Looks like I have more learning to do.

Thanks for your help,

Larry

You are dealing with objects here, it just doesn't wotk that you can refer
to them partially and with variables.

You also missed soomething else I added in the code, albeiet I was not
explicit, so compare this code to yours

Sub CheckBox359_Click()
i = 359
If Controls("CheckBox" & i) Then
Sheets("Order_Entry").Shapes("Rectangle " & i).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Else
Sheets("Order_Entry").Shapes("Rectangle " & i).Select
Selection.ShapeRange.Fill.Visible = msoFalse
End If
End Sub

or even

Sub CheckBox359_Click()
i = 359
If Controls("CheckBox" & i) Then
With Sheets("Order_Entry").Shapes("Rectangle " & i) _
.ShapeRange.Fill.ForeColor.SchemeColor = 8
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
End With
Else
Sheets("Order_Entry").Shapes("Rectangle " & i) _
.ShapeRange.Fill.Visible = msoFalse
End If
End Sub


--

HTH

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


"ltyson" <ltyson.1u4uaj_1124658333.3085@excelforum-nospam.com> wrote in
message news:ltyson.1u4uaj_1124658333.3085@excelforum-nospam.com...
>
> Bob thank you. The one word 'controls' was the missing peice. This new
> code pasted below now works perfect:
>
> Sub CheckBox359_Click()
> i = 359
> If Controls("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 Controls("CheckBox" & i) = False Then
> Sheets("Order_Entry").Shapes("Rectangle " & i).Select
> Selection.ShapeRange.Fill.Visible = msoFalse
> End If
> End Sub
>
> It is odd to me why i have to use:
>
> If Controls("CheckBox" & i) = True Then
>
> if I use the variable but:
>
> if Checkbox359 = True Then
>
> works fine if I don't use the variable. Looks like I have more
> learning to do.
>
> Thanks for your help,
>
> Larry
>
>
> --
> ltyson
> ------------------------------------------------------------------------
> ltyson's Profile:
http://www.excelforum.com/member.php...fo&userid=2768
> View this thread: http://www.excelforum.com/showthread...hreadid=397581
>