Execution of Macro Stops

1. You need to use code tags around your code.

2. Can you give a bit more information? Does the macro just not execute commands after the first line or does it produce an error? If the latter, what is the error?

Originally Posted by Andrew-R

1. You need to use code tags around your code.

2. Can you give a bit more information? Does the macro just not execute commands after the first line or does it produce an error? If the latter, what is the error?

1. Sorry. Now rectified.

2. Macro just does not execute commands after the line indicated. In my actual program it is not the first line. No error message is displayed. No problem encountered in debug mode.

Originally Posted by TMShucks

Might be worth sharing all the code and, ideally a sample workbook that demonstrates the problem.

I've stepped through the code manually and with a breakpoint on the code when pressing a command button and run it uninterrupted. The only issue I had was breaking the links but when I went into debug and stepped through it worked ... may be a timing problem.

Regards

The actual code is not very different from the one I reproduced earlier and the same is given below. I will try to prepare a sample workbook and post, if possible.

I want to again point out that the code runs properly on stepping through or running uder debug mode. Only while executing the macro from outside it stops.

About breaking the link problem, I wanted to handle that later. However, any suggestion is welcome.

Sub Macro1()
'
' Macro1 Macro
'
    ProgName = ActiveWorkbook.Name
    
    MasterPath = "c:\Data\ZIO\"
    DataPath = "c:\Data\ZIO\"


    Workbooks.Open FileName:=MasterPath & "AuditMasters.xlsx"

    Windows(ProgName).Activate

    Range("C8").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-1],[AuditMasters.xlsx]BranchDirectory!R2C1:R1500C2,2,FALSE)"
    
    Range("B16").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(R[-8]C,[AuditMasters.xlsx]BranchMaster!R2C1:R1500C18,18,FALSE)"
        
    Windows("AuditMasters.xlsx").Activate
    ActiveWindow.Close
    
'    ActiveWorkbook.BreakLink Name:="C:\Data\ZIO\AuditMasters.xlsx", Type:= _
'        xlExcelLinks
    

End Sub

Originally Posted by romperstomper

If your shortcut key combination uses the Shift key, switch to one that doesn't use it.

Thanks romperstomper. It ran smooth like knife through butter.

Even breaking of links did not give a problem this time.

Thanks a lot.

What could be the reason/rationale for this though.

Originally Posted by romperstomper

It's a bug. See this MSKB article.

OK. Thanks.

Originally Posted by pike

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save

Thanks Pike. I did not know that there was a way to mark the thread as SOLVED. Hence I had edited the subject and prefixed the Same with "SOLVED".

Anyway now I know.