Here is an example using Word

Dim wdApp As Object

On Error Resum Next
Set wdApp = GetObject("Word.Application")
On Error Goto 0
If wdApp Is Nothintg Then
Set mwdApp = CreateObject("Word.Application")
End If
--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"L3Tech" wrote in message
...
Is there a way to check for a running program on a computer in vba and
if it isn't, start the program.

Ex.
Program to check for is domywork.exe
It is found in
c:\MyStuff\domywork.exe