Can't Enter Break Mode at this time

[pradee]

Hi,
I am trying to add code to the sheet, which is dynamically getting created,
when i a executing the subroutine, am getting the error "Can't Enter Break Mode at this time"
at xLine = .CreateEventProc("Change", "Worksheet")

and folling is my code

Sub AddSht_AddCode(ByRef wb As Workbook)
    Application.EnableEvents = True
    Dim xPro As VBIDE.VBProject
    Dim xCom As VBIDE.VBComponent
    Dim xMod As VBIDE.CodeModule
    Dim xLine As Long


    'Set wb = Workbooks.Add
    
    With wb
        Set xPro = wb.VBProject
        'Set xCom = xPro.VBComponents(ActiveSheet.CodeName)
        Set xCom = xPro.VBComponents(Sheets("Node Pairing").CodeName)
        Set xMod = xCom.CodeModule


        With xMod
            xLine = .CreateEventProc("Change", "Worksheet")
            xLine = xLine + 1


            .InsertLines xLine, " If SheetPresent(" & """" & "Mac Table" & """" & ") = True  Then"
            xLine = xLine + 1
            .InsertLines xLine, "  call NodeMacChange(Target)"
            xLine = xLine + 1
             .InsertLines xLine, "  End If"
        End With
    End With
    Application.EnableEvents = True


End Sub

Help please
Thanks

 

[pradee]

Please Help me with this, i am waiting for the reply by two days

 

[RoryA]

Are you trying to step through the code? And are you trying to alter the code in the workbook where you are running that code?

 

[pradee]

@RoryA thanks for Reply, i have written some public sub for adding code to the sheet and am calling that sub from the other sub

am i clear?

 

[RoryA]

Nope. Are you trying to add the code to a sheet in the same workbook that is running the first code?

 

[pradee]

Yes i am adding the code to the sheet in the same work book,

but the strange thing is it is working fine now , i just changed the function call to the end of the subroutine after all code has been executed,

thanks for replying