If UserForms.Count Then exit sub

If you want to test if a particular userform is both loaded and visible

If UserForms.Count Then
For i = 0 To UserForms.Count - 1
If UserForms(i).Name = "UserForm2" Then
bUF2loaded = True
bUF2Visible = UserForms(i).Visible
Exit For
End If
Next
End If

Regards,
Peter T

"RyanH" wrote in message
...
Is there a way to not execute the Event below if any UserForm is showing?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

If a UserForm is showing Exit Sub Else Continue with code..

End Sub