I have found a couple examples of how to do this on the web, but they have been 100% ineffective, or possibly I am not seeing where I need to change the code. Can anyone point me in the right direction?

The code i have is:

Sub removeAllCode()
Dim awi As Workbook 'activeWorkbookItem(index)
Dim awcl As Integer 'activeWorkbook Component CountOfLines
Dim count As Integer 'how many potential code modules
Dim i As Integer 'loop counter
On Error Resume Next
count = ActiveWorkbook.VBProject.VBComponents.count
For i = 1 To count
Set awi = ActiveWorkbook.VBProject.VBComponents.Item(i)
awcl = awi.CodeModule.CountOfLines
awi.CodeModule.DeleteLines 1, awcl
Next i
Set awi = Nothing ' Release the object
End Sub
My goal is to ultimately have the program delete all the vba in the file, and then save the file....almost as a sort of copy protection.