add aorrowshape

[u25103]

Hi

I'm trying to add a uparrow but I want to place it on a active/selected cell

ex

Activecell.offset(5,1).select

ActiveSheet.shapes.AddShape(msoShapeUpArrow, selection, selection, 16.5, 72).Select



thanks

[p45cal]

ActiveSheet.Shapes.AddShape(msoShapeUpArrow, Selection.Left, Selection.Top, 16.5, 72).Select