Display Mouse Button, Shift key and Position X and Position Y
Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Cells(2, "A").Value = Button Cells(2, "B").Value = Shift Cells(2, "C").Value = X Cells(2, "D").Value = Y End Sub