ActiveX Scrollbar after dragging event

[tiredofit]

Let's assume the activecell is A1 (the name box in the top left of the worksheet shows A1).

My worksheet contains an ActiveX scrollbar.

When I left-click the scrollbar and drag it, then let go, the scrollbar remains flashing and the name box is empty.

What I am seeking is for the cursor to stop flashing and the name box to show A1.

Currently, this can be achieved manually by pressing the esc key after dragging the scrollbar.

Can this be achieved with VBA, perhaps an after dragging event for ActiveX scrollbars?

Thanks

 

[Jaafar Tribak]

Maybe:

Private Sub ScrollBar1_GotFocus()
    ActiveWindow.RangeSelection.Select
End Sub

 

[tiredofit]

Maybe:

Private Sub ScrollBar1_GotFocus()
    ActiveWindow.RangeSelection.Select
End Sub

Thanks, that's done exactly what I wanted.

Initially I added break points to all the events related to scrollbars but ScrollBar1_GotFocus didn't seem to be activated when I released the mouse.