double click opens userform with listbox, how to stop same dbl click causing listbox selection

[davidmyers]

Hi, I have a userform which opens when I double click a cell

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("G2:G501")) Is Nothing Then
        Cancel = True
        UserForm1.Show
    End If
End Sub

My problem is that the userform has a listbox, and if I click on a cell that's in the area that the userform will occupy then the double click that opens the userform also selects an item in the listbox.
How can I stop this happening?
Thanks for any help
David

 

[Roderick_E]

Check of the userform is already open and if it is, do nothing.

if userform1.visible = true then
exit sub
else
'do whaetver
endif

 

[davidmyers]

Thanks for the reply Roderick, this doesn't seem to help - same problem. Where should I put this code?
I put:

    If Not Application.Intersect(Target, Range("G2:G501")) Is Nothing Then
        Cancel = True
        UserForm1.Show
         Exit Sub
    End If

Is that what you meant?

Thanks
David