ShowDataForm no abre con botón

Tengo un libro donde utilizo un DataForm para añadir los datos a una hoja y en la columna E, necesito que los valores tengan el formato "0,000" y el dataform siempre me ponía "0.000". Buscando por ahí, he visto una macro que soluciona mi problema, pero que me crea otro. La macro es la siguiente:

Public Sub TXTEFECTIVO_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc(".") Then
KeyAscii = Asc(",")
End If
End Sub

Pero cuando pongo esta macro en la hoja1 (que es donde pongo los datos) ya no me deja llamar el formulario utilizando un botón.. La macro para llamar el formulario que utilizo es:

Sub FORM_SHOW()   

ActiveSheet.ShowDataForm
End Sub

Pero lo curioso es que si se abre cuando se hace desde la barra de acceso rápido.

¿

¿Tenéis alguna idea de que puede estar pasando?