Hi,
from the Script56.chm (downloadable via
set WshShell = WScript.CreateObject("WScript.Shell"

WshShell.Run "calc"
WScript.Sleep 100
WshShell.AppActivate "Calculator"
WScript.Sleep 100
WshShell.SendKeys "1{+}"
WshShell.AppActivate <titlename> will put the application with that titlename as the active one.
From Script56.chm:
"AppActivate Method
See Also
Running Your Scripts | WshShell Object | SendKeys Method
Activates an application window.
object.AppActivate title
Arguments
object
WshShell object.
title
Specifies which application to activate. This can be a string containing the title of the application (as it appears in the title bar) or the application's Process ID.
Remarks
The AppActivate method returns a Boolean value that identifies whether the procedure call is successful. This method changes the focus to the named application or window, but it does not affect whether it is maximized or minimized."
Hope this will help you get any further...
Grtz Hanzel
If smile = vbFalse Then
MsgBox("Smile... Tomorrow will be worse!", ,"Smile..."

End If