Spreadsheet screen flickers for a few second when using a condition

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

application.screenupdating=false
code
reset to true

--
Don Guillett
SalesAid Software
[email protected]
"wayne" <[email protected]> wrote in message
news:[email protected]...
> 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

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.


--
Regards,
Tom Ogilvy



"wayne" <[email protected]> wrote in message
news:[email protected]...
> 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

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

--
Regards,
Tom Ogilvy

"Don Guillett" <[email protected]> wrote in message
news:[email protected]...
> application.screenupdating=false
> code
> reset to true
>
> --
> Don Guillett
> SalesAid Software
> [email protected]
> "wayne" <[email protected]> wrote in message
> news:[email protected]...
> > 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
>
>

Thanks


Works perfectly..


WayneL


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

"Tom Ogilvy" <[email protected]> wrote in message
news:uS9S%[email protected]...
>
> 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 :-)