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