Compileerfout in verborgen module AutoOpen

[swastassijns]

ik heb een .dot template met een Start macro en die werkt perfect onder Windows XP.
De macro wordt gebruikt om een aantal standaard wetteksten te kunnen 'plakken' in mijn documenten (een wat uitgebouwde autotekst zeg maar...).
Sinds ik Windows Vista Home Premium gebruik krijg ik bij het aanklikken van de macro echter een 'compileerfout in verborgen module AutoOpen' als fout...

Hier is de code van de AutoOpen module:

Option Explicit

Public Const boxtitel As String = "Autotekst"
Public DezeSjabloon As String
Public MultiPageSelected As Integer
Public Sub Main()

MultiPageSelected = 0

End Sub


Sub Start()
Dim exdate As Date
exdate = "1/1/3000"
If Date > exdate Then
MsgBox ("De datum is overschreden, helaas. Contact your supplier")
Exit Sub
End If
'MsgBox ("Nog " & exdate - Date & " dagen")

If Documents.Count = 0 Then

Documents.Add

End If
frmAutotekst.Show

End Sub


Weet iemand soms wat er nu zo specifiek anders is aan Vista dat nu deze fout veroorzaakt??

 

[snb]

Als er moet gebeuren waarvoor volgens jou de code bedoeld is is dit voldoende:

Sub Autopen()
  frmAutotekst.Show
End Sub

 

[swastassijns]

Als er moet gebeuren waarvoor volgens jou de code bedoeld is is dit voldoende:

Sub Autopen()
  frmAutotekst.Show
End Sub

Bedankt voor de suggestie, maar nadat ik deze suggestie heb doorgevoerd krijg ik nu ook die foutmelding vanuit WindowsXP (terwijl mijn oude code in WindowsXP wel werkt en in Vista de foutmelding geeft)...