Thank you again, sassora. I have tried to incorporate your code into mine, but I am getting an "Expected End of Statement" error. I am not familiar with the type of "Open" you specify and don't know the syntax of the statements involved. Therefore, I can't correct it. Also, I don't understand what the "Open" statement is doing. Sorry. The code I am using is below, DocName instead of sFile. Apologies for taking up so much of your time.
Sub Agenda_Open()
Application.WindowState = xlMinimized
Dim DocName As String
DocName = "C:\Meeting 2013\Agenda 2013.docx"
Call GetWord(DocName)
End Sub
Sub GetWord(ByVal DocName As String)
Dim oWord As Object
On Error Resume Next
Set oWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set oWord = CreateObject("Word.Application")
End If
Dim IsFileLocked As Boolean
IsFileLocked = False
On Error Resume Next
Do Until IsFileLocked = False
' \\ Open file, if error occurs the document is open
oWord.documents.Open DocName For Binary Access Read Write Lock Read Write As #1 ' Error on this line
oWord.Visible = True
Close #1
If Err.Number <> 0 Then IsFileLocked = True
Err.Clear
End If
Loop
Application.WindowState = xlMaximized
End Sub
Best regards.