I doubt whether the below will run on someone elses machine as you may
need to play arounfd with the variables (the "blah blah" bits
definitely won't work!)
Is the below sound code in terms of getting things to run
quickly?....because things don't seem to run very quickly when it
executes. (I have a feeling it has something to do with the public
variable WordApplication?!)

Any help greatly appreciated
Jason Q


Public WordApplication As Object
Sub AppOpen()

Dim strApp As String
strApp = "Word.Application"
'check to see if Word is running
On Error Resume Next
If Not IsRunning(strApp) Then
Set WordApplication = CreateObject(strApp)
Else
Set WordApplication = GetObject(, strApp)
End If
On Error GoTo 0
strApp = ""

myFilePath = "I: blah blah " & strFile & ".Doc"
myFileCopy = "I: blah blah " & strFile & "\" & strFile & " " _
& Now & ".Doc"

FileSystem.FileCopy myFilePath, myFileCopy 'USING A REFERENCE

With WordApplication
.WindowState = 2
.Visible = True
End With

End Sub