Soru ListBox'ta seçim olup olmadığını kontrol etmek

[seckinb]

10-15 seçenek (.additem ile daha önceden tanımlı) içerisinden seçim yapılıp yapılmadığını kontrol etmek peşindeyim.
şu şekilde bir kod belirledim ancak seçim olmasa da bazen kapatmaya izin veriyor.
Nasıl düzeltirim?

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

[B]If LB1.ListIndex = -1 Then[/B]
    MsgBox "Hastanın tanısını listeden seçiniz"
    MultiPage1.Value = 0
    LB1.BackColor = vbRed
    Cancel = True
ElseIf LB1.ListIndex > -1 Then
LB1.BackColor = vbActiveTitleBar
Application.ScreenUpdating = True
Worksheets("Formlar").Select
Hide
End If

End Sub

 

[Korhan Ayhan]

Kullandığınız kodun çalışması gerekir.

Hatalı sonuç veriyorsa bilmediğimiz bir durum olabilir. Bunun içinde hata veren örnek dosyanızı incelemek üzere paylaşmanız uygun olacaktır.