Hvordan aktiverer jeg en makro/kode ?

Jeg har fundet mange svar på mit spørsgmål, men jeg kan ikke finde ud af at aktivere dem...p.s. HAR lavet referencen til Outlook. Koden ser således ud, jf. http://www.eksperten.dk/spm/38750:

___________________
Public Function SendMessage(adr As String, AttachmentPath As String)
  On Error Resume Next
  Dim objOutlook As Outlook.Application
  Dim objOutlookMsg As Outlook.MailItem
  Dim objOutlookRecip As Outlook.Recipient
  Dim objOutlookAttach As Outlook.Attachment

  \' Create the Outlook session.
  Set objOutlook = CreateObject(\"Outlook.Application\")

  \' Create the message.
  Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

  With objOutlookMsg
  \' Add the To recipient(s) to the message.
    Set objOutlookRecip = .Recipients.Add(adr)
   
    objOutlookRecip.Type = olTo
     
      \' Set the Subject, Body, and Importance of the message.
      .Subject = \"Subject\"
      .Body = \"Body text\"
      .Importance = olImportanceHigh  \'High importance

      \' Add attachments to the message.
      If Not IsMissing(AttachmentPath) Then
        Set objOutlookAttach = .Attachments.Add(AttachmentPath)
      End If

      .Send

  End With
  Set objOutlookMsg = Nothing
  Set objOutlook = Nothing
End Function

\'Under referencer er Microsoft Outlook 9.0 Object Library afkrydset

kald funktionen:
call SendMessage(\"anybody@anywhere.com\",\"anyfile\")
___________________

Jeg førsøger mig med via en Makro --> AfspilKode --> Funktion -->SendMessage(MIN@MAIL,c:\MINFIL.TXT)

Hvad går der galt