bladcode in excel 2000 verwijderen

[pasan]

hallo

ik heb het volgende probleem
als ik thuis met excel 2010 de volgende code uitvoer wordt de sheet netjes opgeslagen en alle bladcode is in de opgeslagen sheet netjes verdwenen presies zoals ik het graag wilde

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Doc As Object, Sht As String, VBproj As Object

Sheets("24H Rapportage").Copy
With ActiveWorkbook

Application.DisplayAlerts = False
.SaveAs "G:\zelf gemaakte exel bestanden\" & Format(DateValue(Now - 8.5 / 24), "dd-mm-yyyy") & ".xls"
 
ActiveSheet.Copy After:=ActiveSheet
    With ActiveSheet
    .Shapes("CommandButton1").Delete   
     Sht = .CodeName
End With
    Set VBproj = Application.VBE.ActiveVBProject
    Set Doc = VBproj.VBComponents.Item(Sht).CodeModule
    With Doc
       .DeleteLines 1, .CountOfLines
End With
.Close
End With
Application.ScreenUpdating = True
ThisWorkbook.Save
End Sub

zoals gezegt thuis in office 2010 werkt het prima
maar als ik het wil uitvoeren op mn werk met office 2000 wordt de bladcode niet verwijdert.
Alle modules worden wel verwijdert
Ik zou de code in een module kunnen zetten maar de volgende code moet (volgens mij)
achter het blad blijven staan

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("P1").Value = Format(Now - 8.5 / 24, "dd mmmm yy")
    Range("T1").Value = Format(Now - 8.5 / 24, "dddd")
    Range("AE2").Value = Format(Now, "hh:mm:ss")
End Sub

vooral dit laatste stukje code mag in het opgeslagen mapje niet meer de sheet beinvloeden

wie kan me helpen