Select Case for Userform Count

[danbates]

Hi,

Is it possible to do a select case regarding the amount on open userforms?

thanks

Dan

 

[JB2020]

Try this

Function UserformCount() As Long

    Dim uForm As Object
    
    For Each uForm In VBA.UserForms
        UserformCount = UserformCount + 1
    Next uForm

End Function

Sub DoStuff()

    Select Case UserformCount
        Case 1
        
        Case Else

    End Select

End Sub