Can't enter break mode only sometimes

The following code resides in SubB which is called from SubA

When SubA is initiated due to CLICKING a button (forms control on worksheet) it runs smoothly.

When SubA is CALLED from a third Sub (SubX) it fails when trying to change the CodeName

It fails whether stepping through or running automatic. (Of course it ends all code, SubA 7 Sub X, not just SubB.)

Error:
Can’t enter into break mode at this time

ws.Copy After:=Sheet1
    Set WsNew = ActiveSheet
        With WsNew
            .Name = "Cost " & Month(Date) & "-" & Day(Date) & "-" & Year(Date)
            'these two separate rows required to change the CodeName                
            .Parent.VBProject.VBComponents(.CodeName) _
            .Properties("_CodeName") = "CostDate"
        End With

The reason I’m changing the codename is because regardless of what the user may do, I want to insure that this newly created CostDate sheet is ALWAYS DELTED prior to the creation of another.
It could be weeks later when the code is run and Sheet1 is copied again to make a new CostDate sheet

Not if the user changed the sheet name

Yes the user can copy the sheet should they choose to. And there are times when they may want to retain historical data. They know they must rename it as they are aware the next run will delete the automatically created sheet.
There are too many varying sheets in this workbook, used by different departments, to safely loop through and delete any not on a specific list.
I appreciate the alternative suggestions but I’m only looking for insight on why code will function flawlessly every time when called from a sub that was initiated by a button yet fails every time when called from a different sub. All 3 subs are in different modules in the same workbook. Accessing the VBProject is always a little tricky.

Found this here:
http://stackoverflow.com/questions/4...t-out-of-range

Added these 3 lines after creating new sheet and before changing codename.
Perhaps I could have used one or the other but I'm moving on.

DoEvents
Dim editor As Object
Set editor = ThisWorkbook.VBProject.VBE.MainWindow