In this module is there Application.Run "recall_GP_equity_yield"
Application.ScreenUpdating = False
"Brettjg" wrote:

Hey Mike, that's wonderfully simple and effective. Thankyou. Hmmm, not I've
got to tell you a bit more. There's actually another bit at the start of the
sub:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
With Target
If Not Range("loan.sought") = Range("G1") Then
Application.Run "recall_GP_equity_yield"
Range("loan.sought").Copy
Range("G1").PasteSpecial Paste:=xlPasteValues
Range("loan.sought").Select
Application.CutCopyMode = False
End If
End With

With Target
If Range("H34") "0" Then
Columns("I").ColumnWidth = 25
ElseIf Range("H34") < "1" Then
Columns("I").ColumnWidth = 0.5
End If
End With

With Target
If Range("I34") "0" Then
Columns("J").ColumnWidth = 25
ElseIf Range("I34") < "1" Then
Columns("J").ColumnWidth = 0.5
End If
End With

Now without that first IF about the loan.sought cell your suggestion is
working really well, but as soon as I reintroduced it the flicking started
again. The bit about

Application.Run "recall_GP_equity_yield"

is just to bring in an information panel, but when its there and visible it
jumps like crikey when change any of the "H34" etc cells. Any more clues?
Regards, Brett.