Sub myOpenWordDoc()
'Standard Sheet module, like: Sheet1.
Dim wApp As Object, fs As Object
Dim myDocFound As Boolean
Dim myDocDriveFolderNameExt$
myDocDriveFolderNameExt = "C:/My Files/JSW/Excel/Data/summary7.doc"
On Error GoTo myErr
Set fs = CreateObject("Scripting.FileSystemObject")
Set wApp = CreateObject("Word.Application")
myDocFound = fs.FileExists(myDocDriveFolderNameExt)
If myDocFound = True Then
wApp.Documents.Open myDocDriveFolderNameExt, ReadOnly:=False
wApp.Visible = True
Exit Sub
Else
MsgBox "The WORD document : " & myDocDriveFolderNameExt & ", was not found", _
, vbCritical + vbOKOnly, "Open File Error!"
Exit Sub
End If
myErr:
MsgBox "An Error Occurred opening your WORD file!", _
vbCritical + vbOKOnly, "Open File Error!"
End Sub