VBA script for Outlook to simplify running a single rule

RunRule.bas

' Rule execution
Sub RunRule(rulename As String)
    Dim st As Outlook.Store
    Dim myRules As Outlook.Rules
    Dim rl As Outlook.Rule
    Dim RunRule As String
    
    Set st = Application.Session.DefaultStore
    Set myRules = st.GetRules
    
    For Each rl In myRules
        If rl.RuleType = olRuleReceive Then
            If rl.Name = rulename Then
                rl.Execute ShowProgress:=True
                RunRule = rl.Name
                Exit For
            End If
        End If
    Next
    
    ruleList = "Rule '" & RunRule & "' completed"
    MsgBox ruleList, vbInformation, "Macro: RunRule"
    
    Set rl = Nothing
    Set st = Nothing
    Set myRules = Nothing
End Sub

' Set a Macro shortcut on the toolbar to a function like this
Sub RunRule_SuperAwesomeRule()
    RunRule ("MySuperAwesomeRule")
End Sub