Function IsUserFormLoaded(ByVal UFName As String) As Boolean 
    Dim UForm As Object 
     
    IsUserFormLoaded = False 
    For Each UForm In VBA.UserForms 
        If UForm.Name = UFName Then 
            IsUserFormLoaded = True 
            Exit For 
        End If 
    Next 
End Function 'IsUserFormLoaded