Boa tarde @jerffson,

Como respondi anteriormente em uma questão parecida para o @Anderson, a única forma que eu encontrei para executar macro enquanto altera o valor em tempo real foi utilizando uma TextBox. Você pode adaptar o código abaixo para as suas necessidades utilizando o comando SendKeys.

Private Sub TextBox1_Change()
Range("A1") = TextBox1.Text
If Len(TextBox1.Text) = 5 Then
MsgBox "ok"
End If
End Sub

Att, Televisaos

Acredito que o @EdsonBR saiba.

Vamos aguardar.

@anderson Obrigado! Mas essa é uma ação que eu preciso fazer em varias células. E ficar criando caixas de texto não seria viável.

Postado por: @anderson

Acredito que o @EdsonBR saiba.

Vamos aguardar.

Sem uma tonelada das instáveis e invasivas API's do Windows suponho que não seja possível, colegas.

Tentem adaptar conforme diretrizes das seguintes fontes:

Managing Low-Level Keyboard Hooks with the Windows API

Wait Until a Key is Pressed with GetAsyncKeyState VBA