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 Resume Next Firstline = .ProcStartLine(proc, vbext_pk_Proc) 'If Err...