Document not saved error when programtically updating module and saving file - excel

Question

The code below is used to update several worksheets in different locations. It will update a particular module that I will specify. This code was working good as of last week. But starting this week it is not working anymore. Everytime, I run this code, it will throw an error during saving of the workbook. The error is "run-time error '1004' Document not saved". I did not change the source code, it was puzzling for me because it used to work but now it is not working. Anybody can suggest anything for me to solve this problem? I am guessing maybe because Excel updates itself and there were some changes in the new updates. The microsoft excel that I am using is Microsoft 365 MSO (Version 2209 Build 16.0.15629.20200) 64-bit. Can you guys suggest other code that works that could replace a module in an excel file given the source is in a text file as .bas extension.
Thanks.
Sub Update_VBA_Module_Pricing_Tool()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim wbUpdate As Workbook
Dim ModuleFile As String
Set wsActive = ThisWorkbook.Sheets("Pricing")
'Loop Thru Files Listed in Col A
i = 2
While wsActive.Range("A" & i).Value <> ""
If wsActive.Range("C" & i).Value = "Y" Then
Application.StatusBar = "Updating " & wsActive.Range("B" & i).Value & " ..."
'DirFile = Workbooks.Open(wsActive.Range("A" & i).Value)
If IsFile(wsActive.Range("A" & i).Value) = False Then
MsgBox wsActive.Range("B" & i).Value & " does not exist..."
GoTo proceed_to_next:
End If
'Dim wbTemp As Workbook
'Set wbTemp = Workbooks.Open("D:\Spark RE Analytics, LLC\Spark Vault - General\02-Pricing Properties\Tuesday-pm-G-BLD\1. Pricing Tool\Week 111 22-10-23\1_BLD Portfolio Pricing Tool Week 111.xlsm")
Set wbUpdate = Workbooks.Open(wsActive.Range("A" & i).Value)
Set vbp = Workbooks(wbUpdate.Name).VBProject
'Loop Thru VBA Modules in Col D
j = 2
While wsActive.Range("H" & j).Value <> ""
If wsActive.Range("J" & j).Value = "Y" Then
'Set module to Process
ModuleFile = wsActive.Range("H" & j).Value
modulename = wsActive.Range("I" & j).Value
'Replace Module in Workbook
Set vbp = Workbooks(wbUpdate.Name).VBProject
With vbp.VBComponents
.Remove vbp.VBComponents(modulename)
'.Import ModuleFile
Set temp = .Import(ModuleFile)
temp.Name = modulename
End With
' end of insert other things to file
End If
j = j + 1
Wend
'Save File
wbUpdate.Save
wbUpdate.Close False
Application.StatusBar = "Finished Updating " & wsActive.Range("B" & i).Value & " ..."
End If
proceed_to_next:
i = i + 1
Wend
apps_exit:
MsgBox "Done!"
End Sub