Min Makro virker ikke

Hej med jer
Er der mon en som kan hjælpe? Jeg skal have Excel til at sende en mail hver gang, der bliver skrevet noget i kolone B som indeholder "Alumni". Jeg har indsat nedenstående VBA men mailen bliver ikke sendt - kun hvis jeg manuelt kører makroen:


Dim xRg As Range

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
  Set xRg = Intersect(Range("B2:B9999"), Target)
    If xRg Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value = "Alumni" Then
        Call Mail_small_Text_Outlook
    End If
End Sub
Sub Mail_small_Text_Outlook()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Hej " & vbNewLine & vbNewLine & _
              "Ny medlem på Alumninetværket" & vbNewLine & _
              "Mvh Mi"
    On Error Resume Next
    With xOutMail
        .To = "Mail@Mail.dk"
        .Subject = "Ny deltager på Alumni"
        .Body = xMailBody
        .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub