Boa noite
Ao executar a macro abaixo no Excel 2007 retona uma mensagem de erro conforme figura anexo.

o que seria essa mensagem e como corrigir ?
Obs.: Foi testado em outro PC funcionou normal.
Sub Relatorio()
Dim L, mes, nomedoarq As String
nomedoarq = Plan3.Range("AA14").Value '"C:\Users\jn\Desktop\Relatorio Diario.docm"
On Error GoTo ARQNE
Plan7.Unprotect Password:="123"
Application.ScreenUpdating = False
Range("A1:AH1500").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1:AH1500").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("H:I").Select
Selection.EntireColumn.Hidden = True
Columns("N:N").Select
Selection.EntireColumn.Hidden = True
Columns("AE:AF").Select
Selection.EntireColumn.Hidden = True
lin = Plan7.Range("B100").End(xlUp).Row
Plan7.Range("A2:AG" & lin - 1).Select
Selection.Copy
Dim winWord As Object
Dim wordDoc As Object
Set winWord = CreateObject("Word.Application")
winWord.Visible = True
Set wordDoc = winWord.Documents.Open(nomedoarq)
Columns("H:I").Select
Selection.EntireColumn.Hidden = False
Columns("N:N").Select
Selection.EntireColumn.Hidden = False
Columns("AE:AF").Select
Selection.EntireColumn.Hidden = False
Range("A1:AH1500").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1:AH1500").Select
Selection.Sort Key1:=Range("R2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.DisplayHeadings = False
Range("a2").Select
Plan7.Protect Password:="HGESF"
Plan5.Activate
Application.ScreenUpdating = True
ThisWorkbook.Save
Application.DisplayAlerts = False
Application.Quit
Exit Sub
ARQNE:
Columns("H:I").Select
Selection.EntireColumn.Hidden = False
Columns("N:N").Select
Selection.EntireColumn.Hidden = False
Columns("AE:AF").Select
Selection.EntireColumn.Hidden = False
Range("A1:AH1500").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1:AH1500").Select
Selection.Sort Key1:=Range("R2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.DisplayHeadings = False
Range("a2").Select
Plan7.Protect Password:="123"
Plan5.Activate
Set w = GetObject(, "Word.Application")
w.Quit
MsgBox "Arquivo não Encontrado!!"
Agenda.Show
Application.ScreenUpdating = True
End Sub
macro no arquivo Word
Private Sub Document_Open()
On Error Resume Next
Application.ScreenUpdating = False
Dim Intervalo As Range
If Tables.Count > 0 Then
Tables(1).Delete
End If
Selection.PasteExcelTable False, False, False
Selection.WholeStory
Selection.Rows.HeightRule = wdRowHeightAtLeast
Selection.Rows.Height = CentimetersToPoints(0.03)
Selection.ParagraphFormat.SpaceBefore = 6
ActiveDocument.Tables(1).Columns(2).Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.MoveDown Unit:=wdLine, Count:=1
Application.ScreenUpdating = True
End Sub
Obrigado a todos.