Thanks Tom,

Works for me too . I was sending the wrong characters !

Regards.


"Tom Ogilvy" wrote:

Sub MyShowform()
Range("A1").Select
SendKeys "%w", False
ActiveSheet.ShowDataForm
End Sub

worked for me.

--
Regards,
Tom Ogilvy


"RAFAAJ2000" wrote in message
...
Hi there,

Can the DataForm ( called via ActiveSheet.ShowDataForm ) be displayed
ready
for a New Record input instead of displaying the first Record ?

I have used a the Sendkey Method but can't get it to work .

Any Ideas ?

Regards.