Egyszer régen írtam az ilyen jellegű feladatokra egy általánosan használható makrót. Tényleg régen volt, még az Excel 5.0 időkben, Win3.11 alatt, szóval aktualizálni kellene. Ha valakinek van kedve bíbelődni vele, nos íme:

Sub SolveEverything(ProblemDescription As String)
    Dim U As Universe, G As God, A As Angel, HeardMe As Boolean, i As Long
    Set U = Universe
    If U.Gods.Count > 1 Then
        Set G = U.Gods(1)
    Else
        Set G = U.God
    End If
    Set A = G.Angels.Add
    G.SendRequest Request:=ProblemDescription, DeadLine:=vbImmediate, SecondaryDeadLine:=vbASAP
    HeardMe = A.Reaction
    If HeardMe = True Then
        MsgBox "Go home, problem solved."
    Else
        G.SendRequest Request:=ProblemDescription, DeadLine:=vbImmediate, SecondaryDeadLine:=vbASAP, AdditonalInfo:=CurrentUser.ReadMind
        HeardMe = A.Reaction
        If HeardMe = True Then
            MsgBox "Go home, problem solved."
        Else
            For i = 1 To 10
                G.SendPrayer Subject:=G.PrimaryPrayer.Text, Object:=CurrentUser, PrayerMode:=vbZealous
            Next
            SolveEverything ProblemDescription
        End If
    End If
End Sub