And your suggestions works! Thanks.

Another issue; based on SHG's FileLen suggestion. Testing it like this I get an error on the FileLen code:
Private Sub app_Workbookopen(ByVal Wkb As Workbook)

MsgBox FileLen(Wkb)
If Wkb.Name <> "MyLinks.xlsm" And Not Wkb Is ThisWorkbook Then

    With Wkb
    If MsgBox("Autosave is " & _
              IIf(EnableAutoRecover, "ENABLED", "DISABLED") & " for " & .Name & _
              IIf(EnableAutoRecover, ".  DISABLE?", ".  ENABLE?"), vbYesNo + vbInformation, "Turn Autosave On or Off") = vbYes Then _
       .EnableAutoRecover = Not (.EnableAutoRecover)
  End With

End If
End Sub