Runtime Error 5 saving workbook with Microsoft 365

[Ironman]

Hi

When I manually save the workbook the below code inserts the last time I manually saved the workbook into cell A1 of sheet 'Training Log' (named "SaveTime").

This has worked without any problem for years, but I have just converted from Office 2021 to Microsoft 365 and now it errors Runtime Error 5.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
Range("SaveTime") = "Last saved" & Format(Time, " h:mmam/pm") & ", " & Round(FileLen(ActiveWorkbook.FullName) / 1000000, 1) & "Mb"

Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

Can you tell me what I need to change to make this work again?

Many thanks!

 

[Joe4]

See here: VBA Invalid Procedure Call Or Argument Error (Error 5)

I am guessing that the issue is with this line:

Range("SaveTime") = "Last saved" & Format(Time, " h:mmam/pm") & ", " & Round(FileLen(ActiveWorkbook.FullName) / 1000000, 1) & "Mb"

as that is really the only line of code doing anything.

What I would recommend is breaking it into parts to test it out, slowly add each piece back in until the error occurs. then you will know what the issue is.
(So each component is colored).

So start off like this:

Range("SaveTime") = "Last saved"

and see if that works. If it does, add in the next piece and test it out again, etc.

Once you know which piece is causing the error, you can focus on it to try to fix it.

 

[Ironman]

Many thanks for your help Joe.

It turns out the issue was a Microsoft Office versions glitch because I was running Office 2021 and Office 365 at the same time - I uninstalled Office 2021 and the issue was resolved.

Thanks again.