Code remains in VBA editor and does not return to datasheet view

[Nerisha]

Hi there, I needed to add events to the Worksheet_change event. I was helped out with the following code:

Sub CreateEventProcedure()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim LineNum As Long
Const DQUOTE = """" ' one " character

Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents("Sheet2")
Set CodeMod = VBComp.CodeModule

With CodeMod
LineNum = .CreateEventProc("Change", "Worksheet")
LineNum = LineNum + 1
.InsertLines LineNum, " MsgBox " & DQUOTE & "Hello World" & DQUOTE
End With
End Sub

The problem is that after it executes it remains in the VBA Editor. What can I do to have the datasheet view appear when the code runs?

 

[GlennUK]

Put this:

Application.VBE.MainWindow.Visible = False

before the End Sub.