Спасибо за уделенное внимание.  
 
можно удалять можно заменить на обновленный...    
важно найти конец процедуры.  
первая строка найдена. конечно можно вставить цикл и тупо найти  
ближайший "End Sub", но академический интерес заставляет потратить время и понять почему же готовые операторы поиска конца процедуры  (ProcOfLine) или числа строк в процедуре (ProcCountLines )  не работают...выдают ошибку функция не определена №35  и все тут, а вот оператор поиска конца всего кода  
.CodeModule.CountOfLines работает прекрасно....  
ПОМОГИТЕ АСЫ!!! чую гдето галочка не стоит...

Имеем UserForm1    
в ней несколько Controls  c кодом  
Хочу найти код конкретного Controlа (Label1) в общем коде, а именно строку начальую  
и конечную для последующего удаленияи вот не могу никак сладить с оператором ProcCountLines  либо ProcOfLine. Выдает ошибку №35  может надо чего в референсах добавить или синтаксис не тот :(  
(у меня Excel2003, доверять доступ VBE установлен)  
 
0  Set UFvbc = ThisWorkbook.VBProject.VBComponents("UserForm1")  
1  For i = 1 To UFvbc.CodeModule.CountOfLines  
2    dd = UFvbc.CodeModule.Lines(i, 1)          
3    If InStr(1, dd, "Private Sub Label") > 0 Then  
         
4          j2 = UFvbc.CodeModule.ProcCountLines(dd, vbext_pk_Proc)  
         
5        MsgBox (j2)  
6     End If  
7  Next i