Count all VBA code lines in Workbook (Code)

Greetings all, Initially Inspired by the_net_2.0 on https://www.access-programmers.co.uk/forums/threads/count-lines-of-code-in-a-vba-project.215677/, I wrote code to count how many lines of cod...

excel

Macros and VBA

Kendethar

Aug 14, 2022

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.

GeorgieAnne

Iron Contributor

Aug 05, 2022

Thank You Kendethar
But would you please revise this code with Option Explicit set on.

Thanks
Georgie Aanne

Kendethar

Iron Contributor

Aug 14, 2022

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.

Forum Discussion

Count all VBA code lines in Workbook (Code)

Resources