Hi Sky,

I finally also came up with my own less elegant one.

Elegance is in the eye of the beholder, but why use a clunky implementation
of SendKeys when a native function is available?

---
Regards,
Norman


"sky" wrote in message
...
Thanks Guys
I finally also came up with my own less elegant one.
===========
Private Sub CommandButton1_Click()
Range("c2").Select
SendKeys "^(;)"
SendKeys " "
SendKeys "^+(;)", Wait
End Sub
=========
skyknight