a macro to insert an arrow

[still learning]

Hi
I have a macro highlight a cell in A that has the current date when the sheet opens. I want to have and arrow inserted 4 cells to the right
I used the record a macro to insert an arrow in the proper cell.

Sub forarrow()
       ' make arrow
    ActiveCell.Offset(0, 4).Range("A1").Select
  ActiveSheet.Shapes.AddShape(msoShapeLeftArrow, 247.2, 75.6, 52.8, 17.4).Select   
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Solid
    End With
    ActiveCell.Offset(0, -4).Range("A1").Select
End Sub

It works great, except it drops down 44 cells and inserts the arrow. then it goes back up to where it was supposed to insert it and moves to the left like its supposed to.
I can't see why it drops 44 cells

mike

 

[Logit]

Something going on with that specific workbook. You could try selecting the first 44 rows, then DELETE.

Then run macro again to see what occurs.

What happens also if you run that macro in a new, clean workbook ?

 

[DanteAmor]

ActiveSheet.Shapes.AddShape(msoShapeLeftArrow, 247.2, 75.6, 52.8, 17.4).Select

That way the arrow always stays in the same position.

According to your comment the cell in column A is already selected.

I have a macro highlight a cell in A that has the current date when the sheet opens

Then try:

Sub forarrow_v0()
  ' make arrow
  ActiveSheet.Shapes.AddShape(msoShapeLeftArrow, ActiveCell.Offset(, 4).Left, ActiveCell.Top, 52.8, 17.4).Select
  With Selection.ShapeRange.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = 0
    .Solid
  End With
End Sub

--------------
Let me know the result and I'll get back to you as soon as I can.
Cordially
Dante Amor
--------------​

 

[still learning]

Hi Logit,
I tried the macro in a new sheet and it goes where I want. I'll have to see why
Hi DanteAmor.
Yep the opening macro puts the cursor where I want the arrow. I will try your fix
I won't be able to try anything till tue. I thank you both for your reply

Wishing both a save and fun holiday.

mike

 

[Logit]

Best wishes.