ScreenUpdating not working properly

Hi all, my problem isn't a major one but it is a curious one. I've been working on an automating data transfers and was told to use this code to stop the risk of siezure:

Application.ScreenUpdating = False
  Code
Application.ScreenUpdating = True

It has worked great for me but today I opened the workbook and the jumping screens are back. Not for every Sub but only for one, even though it has the ScreenUpdating code.

I've uploaded the workbook. The problem is located in Module2 Sub "SourceTransfer"
Can someone run this and let me know if it is an Excel bug or if I have done something wrong?
To run it, copy the data from Sheet1 and paste it into cell B2 of Insert sheet.

Thank you.

Your sub calls InsertLoopLines which turns screenupdating back on. Change that sub to:

Sub InsertLoopLines()
Dim blnUpdate as Boolean
blnUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
'
' This Sub is important because the For Each Loops that search for matches need a stopping point or else the
' the data is transfered wrong.  This Module may requird som rework.
'
    
Range("33:33,65:65,97:97").Select
Range("A97").Activate
Selection.Insert Shift:=xlDown
    
Application.ScreenUpdating = blnUpdate
    
End Sub

Wow, thanks romperstomper for the fast reply, your solution works great and I will mark this as solved in just a moment. I was curious though, is it necessary to use ScreenUpdating for every Sub? I have been since I've learned about it but should I be? The InsertLoopLines Sub could probably do without the ScreenUpdating procedure because it doesn't do a lot right, what is your opinion?

It's not absolutely necessary but since that sub inserts rows I'd probably leave it in there.

Ok, I will. Thanks again.