scroll while dwelling on autoshape arrow

[marcs]

Is it possible to replicate a scroll arrow in the form of an autoshape so that by keeping the autoshape pressed it would cause the WS to scroll?

 

[Jaafar Tribak]

Her is an attempt : Place an Arrow shape pointing to the right on your Worksheet and assign to it the Sub below :

Sub Test()

    Application.ScreenUpdating = False
    With ActiveWindow
        ActiveSheet.Shapes(1).Select
        Selection.ShapeRange.IncrementLeft .VisibleRange.Columns(1).Width
        .SmallScroll ToRight:=1
        ActiveCell.Select
    End With

End Sub

Note that this assumes the Native Worksheet scrollbars are hidden as using them would cause the Arrow Shape to disappear from view.


Regards.

 

[marcs]

Thanks rafaaj2000,

The thing I'm really after is keeping it moving if you keep the arrow pressed