Spreadsheet screen flickers for a few second when using a condition

[wayne]

Hi

When I use the following script in Microsoft Excel to automatically
update a figure based on a yes/no condition in cell c20 the screen
flickers. The value and program does work but it is very pleasant to
watch. Can anyone help?


Wayne


Private Sub Worksheet_Calculate()
Sheets("Work Order Request").Select

If Range("c20").Value = "yes" Then
Range("g20").Value = "=c18"
Else
Range("g20").Value = "Enter CBA Number"
End If
' Range("g20").Value = "=c18"
End Sub

 

[Don Guillett]

application.screenupdating=false
code
reset to true

 

[Tom Ogilvy]

Instead of setting screenupdating to false, avoid selecting the sheet:

Private Sub Worksheet_Calculate()
With Sheets("Work Order Request")
If .Range("c20").Value = "yes" Then
.Range("g20").Value = "=c18"
Else
.Range("g20").Value = "Enter CBA Number"
End If
End With
End Sub

If work order request is already the active sheet and
it is the updating of the cell that bothers you, then perhaps look away.

 

[Tom Ogilvy]

If the activating of the sheet is removed, the flicker seems worse with
application.ScreenUpdating being turned off and on.

 

[WayneL]

Thanks


Works perfectly..


WayneL

 

[Bob Phillips]

If work order request is already the active sheet and
it is the updating of the cell that bothers you, then perhaps look away.

Very amusing