Double Click Spin Button

I have a Spin Button on a worksheet that increases/decreases the value in the cell of the active row of column L by 0.01.

Can I add some code to this Spin Buttton where if I double click the control (up or down) it triggers the code below?

Cells(ActiveCell.Row, "L").Value = Cells(ActiveCell.Row, "AA").Value

Spin button does not have a double click event.

You could make use of the Shift key is the spin button is an ActiveX control.

right click worksheet tab and use this code.

Private m_blnShiftDown As Boolean
Private Sub SpinButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If Shift Then
        m_blnShiftDown = True
    End If
    
End Sub

Private Sub SpinButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    m_blnShiftDown = False
    
End Sub


Private Sub SpinButton1_SpinDown()

    If m_blnShiftDown Then
        Cells(ActiveCell.Row, "L").Value = Cells(ActiveCell.Row, "AA").Value
    Else
        Cells(ActiveCell.Row, "L").Value = Cells(ActiveCell.Row, "L").Value - 1
    End If

End Sub


Private Sub SpinButton1_SpinUp()

    If m_blnShiftDown Then
        Cells(ActiveCell.Row, "L").Value = Cells(ActiveCell.Row, "AA").Value
    Else
        Cells(ActiveCell.Row, "L").Value = Cells(ActiveCell.Row, "L").Value + 1
    End If

End Sub