Thisworkbook.VBProject.VBComponents("Module1").CodeModule.CountOfLinesbut it includes blank lines in the count