Hi

I don't have foxpro to try it, but this worked for me in excel. I selected a
cell on the sheet so I could see what was happening. You may have to make
sure that the foxpro app is ready where it needs to be so that shift tab
moves to where you expect it.

Worksheets("sheet1").Range("c5").Select
SendKeys "+({tab})"

You may have to play with it a bit, but you could try just

SendKeys "+({tab})"


HTH

Ken



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.789 / Virus Database: 534 - Release Date: 07/11/2004