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
Bookmarks