Go to the shortcut, right-click and choose properties.
Copy the text in the Target box.

Replace the program name with the copied text in your VBA program...

--
Always provide your feedback so that others know whether the solution worked
or problem still persists ...


"Johan" wrote:

Thank you, I did copy the sub to a Module and not ThisWorkbook

Next question, if tou can help me on this, how du I start the other program
from a shortcut. I need that because the shortcut makes an automaticaly
import to the program. It is not possible to do this by strating the
"program" (.exe file).

Sheeloo skrev:

Working for me...
I have Excel 2003 and put the code in the module for my workbook...
Where are you putting this code in?
--
Always provide your feedback so that others know whether the solution worked
or problem still persists ...


"Johan" wrote:

Thank you, but I can not work this out.
When I run your program it does not send anything to notepad.


Sheeloo skrev:

I started with the following example given in Help
=============
Sub test1()
Dim ReturnValue, I
ReturnValue = Shell("notepad.EXE", 1)
AppActivate ReturnValue
For I = 1 To 60
SendKeys I, True
Next I
SendKeys "~", True
For I = 1 To 30
SendKeys I, True
Next I
SendKeys "%{F4}", True
SendKeys "~", True
End Sub
=============
Suggest you test with Notepad and play around
--
Always provide your feedback so that others know whether the solution worked
or problem still persists ...


"Johan" wrote:

I manage to create focus to the program, but when I send the key nothing is
happening.