I'm using the following routine to add event procedures to a newly created
workbook wbOut from an existing workbook.

Private Sub AddEventProc(wbOut As Workbook)
'writes an event procedure to every sheet of the active workbook
On Error Resume Next
Dim ws As Worksheet
Dim LineNum As Long
For Each ws In wbOut.Worksheets
With wbOut.VBProject.VBComponents(ws.CodeName).CodeModu le
LineNum = .CreateEventProc("PivotTableUpdate", "Worksheet")
.InsertLines LineNum + 1, _
"Target.ColumnRange.ColumnWidth = 14" & vbCrLf & _
"Target.ColumnRange.WrapText = True"
End With
Next ws
End Sub

The problem is that the function seems to open up the Visual Basic Editor
and leave it open. I don't want my clients to see this when they run the
routine. Is there a way to stop the Visual Basic Editor opening up with
this routine or to programmatically shut it down once opened up.

Also, I've found that the function will very intermittently cause Excel 2003
to crash. I've studied the Pierson page on using code to write code, but I
haven't found a way yet that doesn't intermittently crash Excel. Anybody
have any suggestions?

Thanks,
Wayne C.