Count all VBA code lines in Workbook (Code)

GeorgieAnne 

Of course! I should have to begin with. Thank you for your request. Below is the revised/better version.

Option Explicit
Sub CodeCounter()

On Error GoTo CodeLineCount_Err
Dim CodeLineCount_Var As Object, CodeLineCount As Double, CodeLineCount_Total As Integer
Set CodeLineCount_Var = ThisWorkbook.VBProject

    For Each CodeLineCount_Var In CodeLineCount_Var.VBComponents
        CodeLineCount = CodeLineCount + CodeLineCount_Var.CodeModule.CountOfLines
    Next

CodeLineCount_Total = CodeLineCount

CodeLineCount_Err:
Set CodeLineCount_Var = Nothing
MsgBox CodeLineCount_Total

End Sub

Please let me know if you or anyone reading this has even better improvements.