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