Re: Autoshape Arrow To Get Longer As Rows Added.
Assuming your line shape is named "Exp_Line" and you want it to expand based on entries in Column "B" then...
Add the following change event code to the appropriate worksheet object.
Code
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Exp_Range As Range, Grow_Col As Range
Set Grow_Col = Columns("B")
Set Exp_Range = Cells(Cells.Rows.Count, Grow_Col.Column).End(xlUp).Offset(1, 0)
If Target.EntireColumn.Address = Grow_Col.Address Then
With ActiveSheet.Shapes("Exp_Line")
.Top = 0
.Height = Exp_Range.Top
End With
End If
End Sub
Display More
Interesting question...