Excel VBA macro crashes at end of Sub after 365 update

[cjw29209]

I have a complex Excel file with extensive macros written in VBA. It worked great up until the 2210 or 2211 Excel update around January 2023. The last time I know it worked was early December 2022. Now it only works on an older laptop where I have turned off updates. I have tried the file on multiple other computers with updated versions of excel, but it only works on the copy of excel that is not updating. I discovered this issue in early January 2023, and it has not been resolved with the several updates that have been released in 2023.
One of the Macro's seems to work except that at the end of the Sub Excel freezes for several minutes before I can use it again. Here is a sample code:
VBA Code:

Sub checktrans()
' This macro checks transactions for proper code
Application.ScreenUpdating = False
'Application.Calculation = xlCalculationManual
Dim transcode As String
Dim r1 As Range
Sheets("TRANS").Select
Range("a6").Select
' Range("a1050").Select
' use above lines when you want to skip ahead.  A6is normal start point, but chenge when you don;t want to recheck.
Do While ActiveCell.Value > 0
ActiveCell.Offset(0, 1).Range("A1").Select
transcode = ActiveCell.Value
Sheets("Balance Sheet").Select
Range("b1:b500").Select
Set r1 = Selection.FIND(What:=transcode, LookAt:=xlWhole)
If r1 Is Nothing Then
Sheets("TRANS").Select
Application.ScreenUpdating = True
MsgBox transcode & " was not found.  Fix code and then try again!"
Exit Sub
End If
Sheets("TRANS").Select
ActiveCell.Offset(1, -1).Range("A1").Select
Loop
Application.ScreenUpdating = True
'Application.Calculation = xlCalculationAutomatic
MsgBox "All tranaction codes found.  Ready to process!"
End Sub

 

[Joe4]

Duplicate to: VBA Excel Macro freezes after SUB

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.