Pop up messages when many programs are executed in VBA PowerPoint

[Paul_Hossler]

What causes the UF to display?

Is this during a slideshow?

I assume that Apple, Orange, and Spinach are 3 macros


Something like this in a standard module

Option Explicit


Sub drv()
    Load UserForm1
    UserForm1.Show
    
End Sub




Function Apple() As Variant
    If Rnd < 0.5 Then
        Apple = True
    Else
        Apple = False
    End If
End Function


Function Orange() As Variant
    If Rnd < 0.75 Then
        Orange = True
    Else
        Orange = False
    End If
End Function


Function Spinach() As Variant
    If Rnd < 0.95 Then
        Spinach = True
    Else
        Spinach = False
    End If
End Function

and this in the UF

Option Explicit




Private Sub btnOK_Click()
    Dim bApple As Long, bOrange As Long, bSpinach As Long
    Dim sMsg As String
    
    bApple = 1
    bOrange = 1
    bSpinach = 1
    
    With Me
        If .cbApple.Value Then bApple = Apple
        If .cbOrange.Value Then bOrange = Orange
        If .cbSpinach.Value Then bSpinach = Spinach
    End With
    
    If bApple <> 1 Then sMsg = sMsg & IIf(bApple, "Apple ran successfully", "Apple failed") & vbCrLf
    If bOrange <> 1 Then sMsg = sMsg & IIf(bOrange, "Orange ran successfully", "Orange failed") & vbCrLf
    If bSpinach <> 1 Then sMsg = sMsg & IIf(bSpinach, "spinach ran successfully", "Spinach failed") & vbCrLf
    
    Call MsgBox(sMsg, vbOKOnly + vbInformation, "Apple-Orange-Spinach")


    Me.Hide
    
    Unload Me


End Sub


Private Sub UserForm_Initialize()
    With Me
        .cbApple.Value = False
        .cbOrange.Value = False
        .cbSpinach.Value = False
    End With
End Sub