Добрый день, уважаемые форумчане у меня при запуска следующий макрос возникает ошибка (Run-time error '1004': Application-defined or object-defined error)
Код
Sub Delete_Sub_From_Module()
Dim lCountLines As Long, li As Long, lStartLine As Long, lProcLineCount As Long
Dim sCodeName As String, sProcName As String
With ActiveWorkbook.VBProject.VBComponents("Module1") ' ===>тут начинается ошибка
'получаем кол-во строк кода в модуле
lCountLines = .CodeModule.CountOfLines
'получаем первую строку с кодом, исключая строки декларирования функции и опций модуля
lStartLine = .CodeModule.CountOfDeclarationLines + 1
'цикл по всем строкам кода внутри модуля
For li = lStartLine To lCountLines
'получаем имя процедуры/функции, внутри которой строка кода
sProcName = .CodeModule.ProcOfLine(li, 0)
'если имя процедуры совпадает с тем, которое нам нужно
If sProcName = "tа234" Then
'узнаем кол-во строк процедуры/функции
lProcLineCount = .CodeModule.ProcCountLines(sProcName, 0)
'удаляем процедуру/функцию
.CodeModule.DeleteLines li, lProcLineCount - 1
Exit For
End If
li = li + lProcLineCount
Next li
End With
End Sub
скажите пожалуйста, как можно решить эту проблему.