Deleting all VBA code using VBA???

[Simon Lloyd]

Does anyone know how, using VBA to get a workbook to delete all the code before saving?

Im trying to make a backup copy of a workbook which is date stamped (this i can manage fine!) but the back up that i make needs to have all the code removed from it when its created so that it never makes another copy of itself or performs the task of the original.

Any ideas??

Simon.

[Simon Lloyd]

This is what i have so far, it makes the copy fine, but the copy when opened makes another copy and so on......when the copy is made i dont want the copy to have any code in it....is this possible?

Simon

Sub auto_open()
Dim lStr_TargetFile As String
Dim sStr As String


If ThisWorkbook.Name <> ThisWorkbook.Name & " - " & Format("ddmmyyyy") & ".xls" Then
ElseIf ThisWorkbook.Name = ThisWorkbook & " - " & Format("ddmmyyyy") & ".xls" Then
Call DeleteModule
ThisWorkbook.Save
End If
If ActiveSheet.Rows.Count >= 5 Then
With ThisWorkbook
sStr = .Path & "\" & _
Left(.Name, InStr(1, _
LCase(.Name), _
".xls") - 1) & _
" - " & Format(Now, "ddmmyyyy") & ".xls"
MsgBox "hi"

.SaveCopyAs sStr

SetAttr sStr, vbArchive

.Save

End With
End If

End Sub