Instant.......when I type an entry, the screen flickers and it is done. Can
you explain what the code you gave me does?

Thanks again.

"Bob Phillips" wrote:

How quick is it now?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
It works GREAT now!! Thank you so much for the help.


"Bob Phillips" wrote:

Probably two problems,

1) the change event is cascading more changes if to the same sheet

2) many calculations firing off.

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Call CBMacro
ws_exit:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
Ok, sorry, I misunderstood....

Here is the change event code:

Private Sub Worksheet_Change(ByVal Target As Range)

CBMacro

End Sub

Here is the code for CBMacro:

For Counter = 121 To 18 Step -1
Set curCell = Worksheets("sheet1").Cells(Counter, 11)
If curCell.Value = "" Then
GoTo Counter
Else: Worksheets("sheet1").Range("H12").Value =
curCell.Offset(0, -2)
Exit Sub
End If


Counter: Next Counter
End Sub

"Bob Phillips" wrote:

I meant, the change event code, best to show it.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
I have several ammortization schedules in a workbook, and I had
macros
that
will put the current balance in a cell at the top after I place an
x
by
the
payment line....the current balances are linked to a summary
sheet.
When
I
place the x by the payment, it will run the macro instantly, byt
then
it
takes up to 15 seconds before I can do anything with the worksheet
again.

"Bob Phillips" wrote:

What does it do?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing
direct)

"BRFx2" wrote in message
...
I am using the Worksheet_Change event to trigger a macro to
run
which
performs a calculation. The calculation of the macro performs
immediately,
but it takes about 10 seconds before anything else can be
typed on
the
sheet.