Botões Active X

Eu tenho um botão (ActiveX – Commandbutton) numa planilha que eu gostaria que mudasse de cor ao passar o mouse pro cima.

Fiz o seguinte o código abaixo, ele até muda de cor mas não volta a cor anterior:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

CommandButton1.BackColor = &H8000000D

End Sub

Como fazer pra mudar de cor quando apenas passar o mouse por cima?