Try this codes, which will not open VB Editor.

Sub test()
With ThisWorkbook.VBProject.VBComponents("sheet1").Code Module
..InsertLines 1, "Private Sub Worksheet_Change(ByVal Target As Range)"
..InsertLines 2, "call Update_residuals"
..InsertLines 3, "End Sub"
End With
End Sub

Regards,
Shah Shailesh
http://in.geocities.com/shahshaileshs/
(Excel Add-ins Page)

*** Sent via Developersdex http://www.developersdex.com ***