Public Function ProcCodeMove(frmd$, tomd$, proc$) As Integer '0 OK,1 cannot find proc;2 proc duplicate Dim m%, a%, Firstline%, Totalline%, str$ With ThisWorkbook.VBProject.VBComponents(tomd).CodeModule On Error