Ve se pode ser assim?

.
Marcelo, alowww kk .... ficar apertando DEL e um botão dá na mesma né!! kk
.
O que gostaria é de uma macro que fizesse um loop (não tão rápido para dar emoção kk) até que D2 seja "ok" ... ou que A2, B2 e C2 sejam iguais !!!
.

Copa

Este codigo cria um loop infinito que so vai parar qdo em D2 der OK

Porem deixei o codigo rodando por 5 minutos e nao deu Ok nenhuma vez...

Substitua esse codigo pelo anterior e teste

Se quiser interromper a execução

Use Ctrl + Break

Lembre-se vai entrar em um loop infinito

Sub Sorteio()

Do While Range("D2").Value <> "OK"

    Range("E2").Select
    Selection.ClearContents

Loop

End Sub

.
Marcelo, o código não deve simplesmente esperar aparecer o "OK" ... ele deve executar um DEL, Enter etc etc, para que a fórmula aleatório seja atualizada ... só após isto o código (Macro) deve olhar para D2, e parar se lá estiver "OK"!!!!!!!!!!!!!!!!!
.

A macro acima faz exatamente isso

Do while (faça enquanto) o valor de d2 for diferente de OK, do contrario vc vai ter que executar o codigo toda vez que der ok

Range E2.select foi apenas para evitar de apagar algo que nao deve entao posicionei o cursor em uma celula vazia.

.
Estranho, aqui também ficou fazendo loop por 3 minutos, e nada de acontecer isto: A2=B2=C2 ... e o loop parar!!!
.

O que acontece é que a formula de D2 esta errada acabei de testar

Troque por esta

=SE(E(A2=B2;A2=C2;B2=C2);"OK";"INDEFENIDO")