You might need something like this...

Sub Test()
Set DataRange = Range(Cells(1, 1), Cells(1, 10))
MyProgID = Shell("C:\MyProg\Myprog.exe")
AppActivate MyProgID
For Each Cell In DataRange
Application.SendKeys Cell, True
'Add other SendKeys commands here
Next Cell
End Sub


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=561808