Hi,
In my code, I am running a histogram and the Application.ScreenUpdating is not working, it shows me the screen. Here is the code. How should I write it so that screen does not update?

Sub Button5_Click()

    Application.ScreenUpdating = False

    Sheets("temp").Select

    Application.Run "ATPVBAEN.XLAM!Histogram", _
        ActiveSheet.Range("$B$2" & ":$B$" & Lastrow1), ActiveSheet.Range("$I$1"), _
        ActiveSheet.Range("$E$1:$E$24"), False, False, False, False

    Sheets("Orignal").Select

    Application.ScreenUpdating = True
    
End Sub