How to resovle Screen Flickering
 

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

How to resovle Screen Flickering
 

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

"Ayo" wrote in message
...
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