You might need this...
Private Sub Worksheet_Change(ByVal Target As Range)
if target.row<> 2 or target.column<> 1 then exit sub
Select Case Target.Value 'where target cell stores the result of the equation
Case Is< 0.25
With ActiveSheet.Shapes("Oval 1")
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 10
.Fill.Transparency = 0#
.Line.Weight = 0.75
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 0#
.Line.Visible = msoTrue
.Line.ForeColor.SchemeColor = 64
.Line.BackColor.RGB = RGB(255, 255, 255)
'change the color of the line if you wish
End With
Case 0.26 To 0.5
With ActiveSheet.Shapes("Oval 1")
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 13
.Fill.Transparency = 0#
.Line.Weight = 0.75
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 0#
.Line.Visible = msoTrue
.Line.ForeColor.SchemeColor = 64
.Line.BackColor.RGB = RGB(255, 255, 255)
End With
Case Else
With ActiveSheet.Shapes("Oval 1")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 0.75
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 0#
.Line.Visible = msoFalse
End With
End Select
End Sub
This message was edited by TsTom on 2002-03-23 16:38