Virus scanner nuking module?? Not a threat, I swear!

[Ouka]

See code below (commented out for your safety ), it's just a quick lines of code counter I picked up just to see how much of a novel I've written so far. I'm curious about what in particular is causing the problem.

'Sub CountCodeLines()'    Dim VBCodeModule As Object
'    Dim NumLines As Long, N As Long
'    With ActiveWorkbook
'          For N = 1 To .VBProject.VBComponents.Count
'                Set VBCodeModule = .VBProject.VBComponents(N).CodeModule
'                NumLines = NumLines + VBCodeModule.CountOfLines
'          Next
'    End With
'    MsgBox "Total number of lines of code in the project = " & NumLines, , "Code Lines"
'    Set VBCodeModule = Nothing
'End Sub

'original code by johnske  from http://xlvba.fr.yuku.com/topic/112/VBA-code-lines-count-number-of-lines-in-project#.VgHg-dJViko

This is triggering our enterprise virus scan as detecting "X97M/Generic@MM"

The cleaning action nukes the entire module that the code is located on.

I've confirmed that this sole block of code is causing the problem, as I have broken each chunk of code out and put it in their own document and then let the auto-scan do its thing. It only wipes the file that has this chunk in it.

Can anyone help me understand what is causing the scanner to freak out and if there is syntax I can change to avoid this happening in the future?

also asked here:
http://www.mrexcel.com/forum/excel-q...ml#post4288803