Guru do Excel e Power BI

Enviado: **31 Jul 2018 às 17:03**

Boa tarde, pessoal

Por algum motivo ao rodar esse código a tecla NumLock é desabilitada ao abrir o formulário.

Private Sub UserForm_Initialize()

    txt_Data = Date
    txt_Data.SetFocus
    SendKeys "{Home}+{End}"

End Sub

Alguém sabe o código para reabilitar?
E sabe pq está acontecendo isso?

Muito obrigado.

Enviado: **31 Jul 2018 às 17:12**

SendKeys "{NUMLOCK}"

Resolvido pessoal.

Obrigado.

Habilitar tecla NumLock