Cacher is the code snippet organizer for pro developers

Sub Between()
'
' Between Macro
'

'Dim time1, time2

    Range("E6").Select

    time1 = Now
    time2 = Now + TimeValue("0:00:01")
    Do Until time1 >= time2
        DoEvents
        time1 = Now()
    Loop

   ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 422, 202.5, 423, 223.5).Select
    
    With Selection.ShapeRange
        'Line Properties
        With .Line
            .EndArrowheadStyle = msoArrowheadTriangle
            .Visible = msoTrue
            .Weight = 1
            .Visible = msoTrue
            .ForeColor.ObjectThemeColor = msoThemeColorBackground1
            .ForeColor.TintAndShade = 0
            .ForeColor.Brightness = -0.25
            .Transparency = 0
        End With
        
        'Orientation
        .Flip msoFlipVertical
    End With
    
    Range("E6").Select

    time1 = Now
    time2 = Now + TimeValue("0:00:01")
    Do Until time1 >= time2
        DoEvents
        time1 = Now()
    Loop
    
    
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "1000000"