Bem, depende do que você está tentando realmente fazer. Se você quiser apenas limpar o conteúdo de uma célula, faça isso.
Sub sbClearCells()
Range("A1:C10").Clear
End Sub
Se você quiser cancelar um clique duplo de usuários em uma célula, algo como
Cancelar = verdadeiro
Mas
Se você realmente quer fazer o soco real do teclado, você teria que olhar sendkeys.