Probleem in script

[alsoft]

In de script zoals hieronder staat "Naam" .
Mijn vraag is wat moet hier ingevuld worden , ik kom er niet uit.

Private Sub Workbook_Open()
Call DeleteThisModule
End Sub

Sub DeleteThisModule()
Dim vbCom As Object
einddatum = 39774 'vertegenwoordigt 22/11/2008
If Date < einddatum Then Exit Sub
MsgBox "het bestand is onbruikbaar, bel voor een nieuwe versie "

Set vbCom = Application.VBE.ActiveVBProject.VBComponents
vbCom.Remove VBComponent:= _
vbCom.Item("Naam")
End Sub

 

[Cobbe]

Naam = de naam van je VBAbestand.

Cobbe

 

[alsoft]

Script

Naam = de naam van je VBAbestand.

Cobbe

Cobbe

Dat is dus niet de naam van mijn Excel bestand of toch wel ?

 

[Warme bakkertje]

Hiermee wordt de modulenaam die moet verwijderd worden bedoeld

Mvg

Rudi

 

[Cobbe]

Klopt was te kort door de bocht gegaan.

Sorry, Cobbe