How to resovle Screen Flickering


A

Ayo

How do I get reed of the screen flickering whenever I click on the button
that run this Sub.
Private Sub cmdNLP3_Click()
Application.ScreenUpdating = False
Me.Range("C4,C41") = Me.cmdNLP3.Caption
Me.Range("K8") = Evaluate("=VLOOKUP(H4,SiteCounts,9,FALSE)")
Me.Range("K14") = Evaluate("=VLOOKUP(H4,SiteCounts,10,FALSE)")

''''**** REGIONAL SECTION ****''''
Me.Range("K45") = Evaluate("=SUM('Goals Tracker'!I107:'Goals
Tracker'!I116)")
Me.Range("K51") = Evaluate("=SUM('Goals Tracker'!J107:'Goals
Tracker'!J116)")
Me.Calculate
Application.ScreenUpdating = True
End Sub
 
Ad

Advertisements

L

L. Howard Kittle

Hi Ayo,

Just a guess on my part, you have:
Application.ScreenUpdating = False
Application.ScreenUpdating = True

Which should take care of the flickering. My question what does this do?
''''**** REGIONAL SECTION ****''''

If this represents a call to some other code that runs and does not have the
updating=false/true, that may be where the flickering is occuring.

The code will then return to this line of the original code and finish with
no updating=false which may also produce flickering.
Me.Range("K45") = Evaluate("=SUM('Goals Tracker'!I107:'Goals
Tracker'!I116)")

Otherwise I don't know.

HTH
Regards,
Howard
 

Top