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.

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.

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.

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.

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.

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.