Code execution skips Application.Run statement
 

In the following code sequence:

Set wkbk = ActiveWorkbook
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Call InsertVlnCollectionFormulae(wkbk)
Call TransferToSummarySheet(wkbk)
Application.Run _
"BofQUtilities.xla!InDirect_Menu_Routines.VlnSearc hAndProtect"
Application.Calculation = xlCalculationAutomatic

the Application.Run statement is not executing. When I set
breakpoints, the code stepped straight through the line.

Can anyone help, please?

Regards.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.614 / Virus Database: 393 - Release Date: 05/03/2004

Code execution skips Application.Run statement
 

I'm assuming that InDirect_Menu_Routines is your module name. In that
case, try:

Application.Run "BofQUtilities.xla!VlnSearchAndProtect"

In article ,
"Stuart" wrote:

In the following code sequence:

Set wkbk = ActiveWorkbook
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Call InsertVlnCollectionFormulae(wkbk)
Call TransferToSummarySheet(wkbk)
Application.Run _
"BofQUtilities.xla!InDirect_Menu_Routines.VlnSearc hAndProtect"
Application.Calculation = xlCalculationAutomatic

the Application.Run statement is not executing. When I set
breakpoints, the code stepped straight through the line.

Can anyone help, please?

Code execution skips Application.Run statement
 

Yes, it was the module name.
I had thought that sequence of code was working ok.
Perhaps it was not.
Irrespective of that, your suggestion appears to be working.
I will test further.

Why might this work rather than a full "path" to the routine,
please?

Regards and thanks.
"JE McGimpsey" wrote in message
...
I'm assuming that InDirect_Menu_Routines is your module name. In that
case, try:

Application.Run "BofQUtilities.xla!VlnSearchAndProtect"

In article ,
"Stuart" wrote:

In the following code sequence:

Set wkbk = ActiveWorkbook
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Call InsertVlnCollectionFormulae(wkbk)
Call TransferToSummarySheet(wkbk)
Application.Run _
"BofQUtilities.xla!InDirect_Menu_Routines.VlnSearc hAndProtect"
Application.Calculation = xlCalculationAutomatic

the Application.Run statement is not executing. When I set
breakpoints, the code stepped straight through the line.

Can anyone help, please?


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.614 / Virus Database: 393 - Release Date: 05/03/2004