in Line 2 to see what happens when you don’t disable screen updating.
Your screen will show each action your VBA code performs. It’s a good practice to disable screen updating to decrease total run time.
There is a word that you can use with Application that will neutralise all the alerts that Excel can send your way.
As a result, of all this selecting and scrolling, the screen flickers whenever your recorded macro is played back. Screen Updating Those that are familiar with VBA code may also be aware of the term Application. Unfortunately those that really need to know about this term (those that can only record macros) are often not aware of it.
Screen Updating property is useful when running macros that jump from cell to cell, sheet to sheet, and workbook to workbook. Screen Updating to False stops your screen from flickering (refreshing) as your macro runs.
I see people struggling with Excel every day and I want to help.
Declare Function Find Window Lib "user32" Alias "Find Window A" _ (By Val lp Class Name As String, _ By Val lp Window Name As Long) As Long ' Use Lock Window Update to prevent/enable window refresh Declare Function Lock Window Update Lib "user32" _ (By Val hwnd Lock As Long) As Long ' Use Update Window to force a refresh of the Power Point window Declare Function Update Window Lib "user32" (By Val hwnd As Long) As Long Property Let Screen Updating(State As Boolean) Static hwnd As Long Dim Version No As String ' Get Version Number If State = False Then Version No = Left(Application. Version, ".") - 1) ' Get handle to the main application window using Class Name Select Case Version No Case "8" ' For PPT97: hwnd = Find Window("PP97Frame Class", 0&) Case "9" ' For PPT2K: hwnd = Find Window("PP9Frame Class", 0&) Case "10" ' For XP: hwnd = Find Window("PP10Frame Class", 0&) Case "11" ' For 2003: hwnd = Find Window("PP11Frame Class", 0&) Case "12" ' For 2007: hwnd = Find Window("PP12Frame Class", 0&) Case "14" ' For 2010: hwnd = Find Window("PPTFrame Class", 0&) Case "15" ' For 2013: hwnd = Find Window("PPTFrame Class", 0&) Case Else Err.
Raise Number:=vb Object Error ERR_VERSION_NOT_SUPPORTED, _ Description:="Newer version." Exit Property End Select If hwnd = 0 Then Err.