السلام عليكم
احى رجب
جزاك الله خيرا على تعبك معى
اخى الحبيب
عند تشغيل الكود يظهر هذا السطر خطاء لاتلون الاصفر
Sub ragab()
With ThisWorkbook.VBProject.VBComponents(Mod_Num).CodeModule
.DeleteLines .ProcStartLine(Cod_Nam, 0), .ProcCountLines(Cod_Nam, 0)
End With
End Sub