Get Total Lines of Code in Macro Workbook - VBA Excel

Public Sub GetTTLLinesOfCode()
 Dim TTLLinesOfCode As Long
 TTLLinesOfCode = TotalLinesOfCodeInMacroWorkbook
 Debug.Print TTLLinesOfCode
End Sub

Public Function TotalLinesOfCodeInMacroWorkbook() As Long
 Dim basModule As VBComponent
 TotalLinesOfCodeInMacroWorkbook = 0
 For Each basModule In Application.VBE.ActiveVBProject.VBComponents
  With basModule
   'Debug.Print .Name, .CodeModule.CountOfLines, .CodeModule.CountOfDeclarationLines
   TotalLinesOfCodeInMacroWorkbook = TotalLinesOfCodeInMacroWorkbook + .CodeModule.CountOfLines
  End With
 Next basModule
End Function