Sub Auto_Open()

Range("D8").Select

On Error GoTo ErrorHandler

AppActivate "WinWedge - " + MyPort$

On Error GoTo 0

AppActivate Application.Caption
Exit Sub

ErrorHandler:

RetVal = Shell("C:\Program Files\WINWEDGE\WINWEDGE.EXE C:\Program
Files\Winwedge\Comparitor.SW3")
If RetVal = 0 Then
Beep
MsgBox ("Cannot Find WinWedge.Exe")
Exit Sub
Else
Application.Wait Now + TimeValue("00:00:04")
End If
Resume Next
End Sub

Here is the macro i am running! This macro will open a application file
successfully but when it opens i have to click on the program icon on
toolbar and when i do that the icon disappears and then the program
pops up ready to use. I would like for the macro to open the program in
the use state when it opens instead of having to click on icon on
toolbar 1st? ANY HELP WOULD BE GREATLY APPRECIATED!