opening word doc vba runtime error

[Stevetron]

Hi, I have some code that returns a runtime error.

Private Sub Workbook_Open()
Dim answer As VbMsgBoxResult
answer = MsgBox("Is this your first time using this spreadsheet?", vbYesNo + vbQuestion, "Instructions")
If answer = vbYes Then 'All works up to this point
    Dim wordapp
    Dim strFile As String
 
 
    strFile = "C:\Users\STron\Desktop\Instructions for cable list.docx"
    Set wordapp = CreateObject("word.Application")
    wordapp.documents.Open strFile
    wordapp.Visible = True
    wordapp.Activate
Else
Worksheets("Sheet2").Activate
End If
End Sub

The runtime error I receive is below.

 

[Yongle]

It sounds as though the file is not being found
Let's confirm that

Insert a line which returns a message box
What does the message box say?

    Dim answer As VbMsgBoxResult
    answer = MsgBox("Is this your first time using this spreadsheet?", vbYesNo + vbQuestion, "Instructions")
  
    If answer = vbYes Then 'All works up to this point
        Dim wordapp
        Dim strFile As String
        strFile = "C:\Users\STron\Desktop\Instructions for cable list.docx"
        If Dir(strFile) = "" Then MsgBox "File not found" Else MsgBox "File found"
        Set wordapp = CreateObject("word.Application")
        wordapp.documents.Open strFile
        wordapp.Visible = True
        wordapp.Activate
    Else
        Worksheets("Sheet2").Activate
    End If
End Sub

 

[Stevetron]

Thanks for your reply.

I have inserted the line you suggested and i am getting "file not found"

This is strange as i copy and pasted the file location from the file properties. I have double checked spelling too.

 

[Stevetron]

I have now sorted this.

For some reason the file has .rtf in the file name
Thank you for your help

Private Sub Workbook_Open()
Dim answer As VbMsgBoxResult
answer = MsgBox("Is this your first time using this spreadsheet?", vbYesNo + vbQuestion, "Instructions")
If answer = vbYes Then
    Dim wordapp
    Dim strFile As String
 
 
    strFile = "C:\Users\STron\Desktop\Instructions for cable list.rtf.docx"
    'If Dir(strFile) = "" Then MsgBox "File not found" Else MsgBox "File found"
    Set wordapp = CreateObject("word.Application")
    wordapp.documents.Open strFile
    wordapp.Visible = True
    wordapp.Activate
Else
Worksheets("List of cables").Activate
End If
End Sub

 

[Yongle]

Glad you sorted it