macro i Worddokument kører ikke auto_open ved start.

Jeg har følgende kode som ikke bliver kørt ved oprettelse af et nyt dokument:

Sub Auto_Open
  ' Exit macro if no fields in document
  If ActiveDocument.FormFields.Count = 0 Then Exit Sub
  ' Create variables.
  Dim OfficeAppName As String
  Dim RegSection As String
  Dim RegKey As String
  Dim FieldObj As Object
  Dim RegValue As Long

  OfficeAppName = "Word 2003"
  RegSection = "UserData"
  RegKey = "Current Counter"
  ' Generate error if form field doesn't exist
  On Error GoTo ErrHandler
  Set FieldObj = ActiveDocument.FormFields("IncField")
  ' Get stored registry value, if any
  RegValue = GetSetting(OfficeAppName, RegSection, RegKey, 0)
  ' If not previously set, set to default
  If RegValue = 0 Then RegValue = 1
  ' Set form field result to stored value
  FieldObj.Result = CStr(RegValue)
  ' Increment and update invoice number
  SaveSetting OfficeAppName, RegSection, RegKey, RegValue + 1
ErrHandler:
  If Err <> 0 Then
      MsgBox Err.Description
  End If
End Sub

Der kommer ingen fejl og jeg bliver spurgt om jeg vil køre macroen. Så den er ikke blokkeret. Er der nogen som har et godt forslag?