VBA und Excel - Eigenartiges Phänomen beim RUN-Command

Private Sub btn_start_Click()
    Set sht = Sheets("Ausgabe")  
    Dim MB_Arr(15) As String
    Dim runner As String
    Dim curr_MB As Variant
    MB_Arr(0) = "AUG_events"  
    MB_Arr(1) = "AWB_events"  
    MB_Arr(2) = "BOH_events"  
    MB_Arr(3) = "BRU_events"  
    MB_Arr(4) = "GAR_events"  
    MB_Arr(5) = "HUM_events"  
    MB_Arr(6) = "MAN_events"  
    MB_Arr(7) = "MEI_events"  
    MB_Arr(8) = "RAB_events"  
    MB_Arr(9) = "STA_events"  
    MB_Arr(10) = "STO_events"  
    MB_Arr(11) = "TH_events"  
    MB_Arr(12) = "VOL_events"  
    MB_Arr(13) = "WAE_events"  
    MB_Arr(14) = "WAL_events"  
    MB_Arr(15) = "ALM_events"  
    For Each curr_MB In MB_Arr()
        runner = "Sheet1." & curr_MB & "()"  
        Run runner
    Next curr_MB
    'sht.Select  
End Sub

Public Sub AUG_events()
If Not AUG_start = "" Then  
    If AUG_aussen.Value Then
        MsgBox "im Aussendienst"  
    ElseIf AUG_reise.Value Then
        MsgBox "auf reisen"  
    ElseIf AUG_urlaub.Value Then
        MsgBox "URLAUB!"  
    ElseIf AUG_schule.Value Then
        MsgBox "in der Schule"  
    ElseIf AUG_krank.Value Then
        MsgBox "krank"  
    End If
End If
End Sub