暂停运行第三方加载项

Question

I broke a macro into 2 parts so that it could pause and use a third-party add-on to look up stock symbol descriptions. Some tickers don't have descriptions and the add-on returns "NTFND" if this is the case. I can find an alternate description for those securities but I need the formulas from the add-on to run to identify them. This works if I run Step1 and then Step2 separately.

Sub Macro1()

Application.ScreenUpdating = False

Call Step1 'enters info from holdings sheet including ticker symbols

Application.Calculate

Call Step2 'fixes all the "Not Found" descriptions

Application.ScreenUpdating = True

End Sub

I tried the calculate function but it doesn't seem to calculate for the third-party add-on formulas. Is there another way I can have my Macro pause until the description formulas have run?

I just tried

Application.Wait (Now + TimeValue("00:00:05"))

and

If Not Application.CalculationState = xlDone Then DoEvents End If

Neither worked.

Answer 1

Application.Wait will indeed pause (for 5 sec in this case) until the next line of code being execute.

This might be what you are looking for:

cpearson.com/excel/ShellAndWait.aspx