VBA - Mouse up/down

ich versuche die Vba-Codes MouseUp/MouseDown in einem Tabellenblatt zu nutzen.

Leider passiert da überhaupt nichts.
Z.B. sollte sich nach untenstehender Formel die Schrift in den Zellen M6:N6 von blau auf rot ändern, sollte sich die Mouse auf dem CommandButton befinden.

Private Sub CommandButton1_MouseUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Range("M6:N6").Select
Selection.Font.ColorIndex = 3
End Sub
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Range("M6:N6").Select
Selection.Font.ColorIndex = 11
End Sub

Hat jemand ´n Tip, warum ich hier nicht weiterkomme?

mfg
Andre