Public MyTask As Long' Must be placed above the module
MyTask = Shell("G:\WESTPUB\WINWM60\WINWM60.EXE")
a$ = Selection.Text
SendKeys "%wa" + "%c" + "Find " + a$ + "{enter}"' The % is like an Alt key & is a way of sending commands to application
AppActivate MyTask