[font=Courier New][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]
[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CheckBox1_Click()
[color=darkblue]Call[/color] UpdateArrow
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CheckBox2_Click()
[color=darkblue]Call[/color] UpdateArrow
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CheckBox3_Click()
[color=darkblue]Call[/color] UpdateArrow
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CheckBox4_Click()
[color=darkblue]Call[/color] UpdateArrow
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[color=darkblue]Private[/color] [color=darkblue]Sub[/color] UpdateArrow()
[color=darkblue]Dim[/color] ChkBoxes [color=darkblue]As[/color] [color=darkblue]Variant[/color]
[color=darkblue]Dim[/color] ChkBox [color=darkblue]As[/color] [color=darkblue]Variant[/color]
[color=darkblue]Dim[/color] MyArrow [color=darkblue]As[/color] Shape
ChkBoxes = Array("CheckBox1", "CheckBox2", "CheckBox3", "CheckBox4") [color=green]'change the CheckBox names, accordingly[/color]
[color=darkblue]Set[/color] MyArrow = Me.Shapes("Up Arrow 1") [color=green]'change the shape name accordingly[/color]
[color=darkblue]For[/color] [color=darkblue]Each[/color] ChkBox [color=darkblue]In[/color] ChkBoxes
[color=darkblue]If[/color] Me.OLEObjects(ChkBox).Object.Value = [color=darkblue]False[/color] [color=darkblue]Then[/color]
MyArrow.Fill.ForeColor.RGB = RGB(255, 0, 0) [color=green]'colour red[/color]
[color=darkblue]Exit[/color] [color=darkblue]Sub[/color]
[color=darkblue]End[/color] [color=darkblue]If[/color]
[color=darkblue]Next[/color] ChkBox
MyArrow.Fill.ForeColor.RGB = RGB(0, 176, 80) [color=green]'colour green[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]