Results 1 to 16 of 16

Screen Flickers Even with Application.ScreenUpdating set to False

Threaded View

m3atball Screen Flickers Even with... 10-07-2010, 08:06 PM
shg Re: Screen Flickers Even with... 10-07-2010, 08:09 PM
m3atball Re: Screen Flickers Even with... 10-07-2010, 08:17 PM
jaslake Re: Screen Flickers Even with... 10-07-2010, 10:51 PM
romperstomper Re: Screen Flickers Even with... 10-08-2010, 03:23 AM
romperstomper Re: Screen Flickers Even with... 10-08-2010, 03:25 AM
jaslake Re: Screen Flickers Even with... 10-08-2010, 08:56 PM
romperstomper Re: Screen Flickers Even with... 10-12-2010, 02:45 AM
m3atball Re: Screen Flickers Even with... 10-11-2010, 09:47 PM
romperstomper Re: Screen Flickers Even with... 10-12-2010, 02:35 AM
m3atball Re: Screen Flickers Even with... 10-12-2010, 12:18 PM
FDibbins Re: Screen Flickers Even with... 11-20-2014, 04:48 PM
romperstomper Re: Screen Flickers Even with... 11-20-2014, 06:17 PM
FDibbins Re: Screen Flickers Even with... 11-20-2014, 06:32 PM
romperstomper Re: Screen Flickers Even with... 11-27-2014, 05:42 AM
NDeanMeyer Re: Screen Flickers Even with... 08-26-2017, 11:42 AM
  1. #1
    Registered User
    Join Date
    08-24-2010
    Location
    California
    MS-Off Ver
    Excel 2007, 2010
    Posts
    45

    Screen Flickers Even with Application.ScreenUpdating set to False

    I have a very simple piece of code that will divert the selected cell to cell A1 (hidden behind a logo) so that the users will not see the frame of a selected cell, making this tool look less like an Excel file and more like a normal software program. This sub sits in a normal worksheet (not in modules folder or ThisWorkBook part of the VB code).

    The problem is that the screen flickers 2-3 times for each click on the worksheet even with the ScreenUpdating value set to False. It behaves exactly the same even if I comment out the statement that turns ScreenUpdating back to True. Does anybody know why? Thank you in advance for your help!

    Please see code below:

    Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    
    Application.ScreenUpdating = False
    
    If ActiveCell.Address <> "A1" Then
    ' Hide the active cell (for visibal borders) behind the logo
        ActiveSheet.Cells(1, 1).Select
    End If
    
    Application.ScreenUpdating = True
    
    End Sub
    ~ M3atball
    Last edited by m3atball; 10-12-2010 at 12:20 PM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1