Screen updating turns itself on during/after Application.Run ATPVBEAN.XLAM

Hi everyone,

I have a little bit of a problem with screen updating. The problem is that screen updating turns itself on when the programme hits a particular line (in bold below). Here is the relevant part of the code:

Sub Test

Application.ScreenUpdating = False

Dim x,y,z as Long

x = Sheets("Calc").Range("B4").Value 

row = Array("6:6","7:7")

For y = LBound(row) To UBound(row)
Sheets("Res1").Select
Range(row(y)).Copy ([Bstrap!A5])

For i = 1 To 1000
Sheets("Bstrap").Select
Application.Run "ATPVBAEN.XLAM!Sample", ActiveSheet.Range(Cells(5, 2), Cells(5, x + 1)), ActiveSheet.Cells(13, i + 10), "R", j_end, False
Next i

' more code...

Next y

End Sub

How can I make screen updating to stay off when/after executing " Application.Run "ATPVBAEN.XLAM!Sample" "?

Thank you for your help!

Sub Test

Application.ScreenUpdating = False

Dim x,y,z as Long

x = Sheets("Calc").Range("B4").Value 

row = Array("6:6","7:7")

For y = LBound(row) To UBound(row)
Sheets("Res1").Select
Range(row(y)).Copy ([Bstrap!A5])

For i = 1 To 1000
Sheets("Bstrap").Select
Application.Run "ATPVBAEN.XLAM!Sample", ActiveSheet.Range(Cells(5, 2), Cells(5, x + 1)), ActiveSheet.Cells(13, i + 10), "R", j_end, False
Application.ScreenUpdating = False
Next i


' more code...

Next y

End Sub

maybe