Trigger macro when ActiveX scroll bar control changes

The scroll bar is linked to a cell, so my first tries to get it to trigger the macro have been using

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("a2")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Display a message when the designated cell has been
        ' changed.
        ' Place your code here.
        MsgBox "Cell " & Target.Address & " has changed."
       
    End If
End Sub

to check for a change in the linked cell. But this doesn't seem to trigger the macro. (The code above works perfectly in a simple worksheet with no ActiveX control, where I simply type a value into the target cell and press enter.)

Can anyone suggest a way to detect a change in the ActiveX control which I can use to trigger the macro?

Thanks for advice

That's brilliant. Thanks very much. I now have the trigger working.