New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Dim Msg As String, h As Integer Msg = "" With Me.ListBox1 For h = 0 To .ListCount - 1 If h > 1 Then MsgBox "Multiple Items Selected", vbCritical, "Item Selection" Exit Sub End If Next h End With
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.