Simply add the following code line to achieve this.
application.screenupdating = false Is jut used to turn off the screen flickering which will make the code to run faster and it is used to speed up the performance of the macro alone I mean I have written a code for Worksheet_selectionchange event.
Excel & Word have the Screen Updating method thru which a developer can lock the main window from unnecessarily redrawing itself whilst the macro is being executed. If left alone, redrawing is not only ugly on the eyes it also takes more time for the macro to reach completion.
' This includes both posting free demo projects made from this ' code as well as reproducing the code in text or html format.
' --------------------------------------------------------------------------------' User Defined Error codes Const ERR_NO_WINDOW_HANDLE As Long = 1000 Const ERR_WINDOW_LOCK_FAIL As Long = 1001 Const ERR_VERSION_NOT_SUPPORTED As Long = 1002 ' API declarations for Find Window() & Lock Window Update() ' Use Find Window API to locate the Power Point handle.
Worksheet Function | Screen Updating | Display Alerts | Calculation The mother of all objects is Excel itself. The application object gives access to a lot of Excel related options. As a result, Excel VBA closes your Excel file, without asking you to save the changes you made. If your workbook contains many complex formulas, you can speed up your macro by setting calculation to manual. For example, place a command button on your worksheet and add the following code line: When you click the command button on the worksheet, Excel VBA sets calculation to manual. You can verify this by clicking on File, Options, Formulas. Now when you change the value of cell A1, the value of cell B1 is not recalculated.
You can use the Worksheet Function property in Excel VBA to access Excel functions. For example, place a command button on your worksheet and add the following code line: When you click the command button on the worksheet, Excel VBA calculates the average of the values in cell A1 and cell A2 and places the result into cell A3. You can manually recalculate the workbook by pressing F9. In most situations, you will set calculation to automatic again at the end of your code.
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.