[COLOR="Navy"]Sub[/COLOR] MG13Jun04
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, aRw [COLOR="Navy"]As[/COLOR] Object, col [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
[COLOR="Navy"]Select[/COLOR] [COLOR="Navy"]Case[/COLOR] True
[COLOR="Navy"]Case[/COLOR] Dn.Value > Dn.Offset(, 2).Value
[COLOR="Navy"]Set[/COLOR] aRw = ActiveSheet.Shapes.AddShape(msoShapeUpArrow, 10, 10, 20, 25)
aRw.Fill.ForeColor.RGB = RGB(255, 0, 0)
[COLOR="Navy"]Case[/COLOR] Dn.Value < Dn.Offset(, 2).Value
[COLOR="Navy"]Set[/COLOR] aRw = ActiveSheet.Shapes.AddShape(msoShapeDownArrow, 10, 10, 20, 25)
aRw.Fill.ForeColor.RGB = RGB(0, 176, 80)
[COLOR="Navy"]Case[/COLOR] Dn.Value = Dn.Offset(, 2).Value
[COLOR="Navy"]Set[/COLOR] aRw = ActiveSheet.Shapes.AddShape(msoShapeLeftRightArrow, 10, 10, 40, 20)
aRw.Fill.ForeColor.RGB = RGB(255, 255, 0)
[COLOR="Navy"]End[/COLOR] Select
aRw.Top = Dn.Offset(, 1).Top + 5 '[COLOR="Green"][B]play with these number to get correct position[/B][/COLOR]
aRw.Left = Dn.Offset(, 1).Left + 30 '[COLOR="Green"][B]play with these number to get correct position[/B][/COLOR]
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]