Module size

[Hap]

Is there a way to determine what percent or size each module is of the total file size? This would include each worksheet object. If I could create a tool programmatically to determine this it would be handy.

Thank you.

 

[Hap]

I just created the following tool trying to see what info I could extract.

Sub fileTool()

Dim a As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim t As Integer

i = 0
k = Application.ActiveWorkbook.VBProject.VBComponents.Count
For j = 1 To k
a = Application.ActiveWorkbook.VBProject.VBComponents.Item(j).CodeModule.Name
i = Application.ActiveWorkbook.VBProject.VBComponents.Item(j).CodeModule.CountOfLines
t = t + i
Next j

MsgBox "Number of lines of code = " & t & " in a total of " & k & " modules and classes"

End Sub

This obviously includes blank lines also but its a start. The real question would be can I determine the actual size of each VBComponent.