<div>
<a href="http://www.ozgrid.com/forum/showthread.php?t=17473&page=1" rel="ugc">http://www.ozgrid.com/forum/showthread.php?t=17473&page=1</a><br />
<br />
VB-6 &nbsp; &nbsp;<a href="http://www.vb6.us/tutorials/indepth-vb6-listbox-tutorial" rel="ugc">http://www.vb6.us/tutorials/indepth-vb6-listbox-tutorial</a><br />
VB.NET (below)<br />
<br />

<pre><code id="code-8218690">Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedItems.Count &gt; 1 Then

            MessageBox.Show(&quot;Multiple selcted&quot;)
        Else
            MessageBox.Show(&quot;No item or Single item selected&quot;)

        End If
    End Sub
End Class</code></pre>
</div>


http://www.ozgrid.com/forum/showthread.php?t=17473&page=1 [http://www.ozgrid.com/forum/showthread.php?t=17473&page=1]

VB-6    http://www.vb6.us/tutorials/indepth-vb6-listbox-tutorial [http://www.vb6.us/tutorials/indepth-vb6-listbox-tutorial]
VB.NET (below)



Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedItems.Count > 1 Then

            MessageBox.Show("Multiple selcted")
        Else
            MessageBox.Show("No item or Single item selected")

        End If
    End Sub
End Class

<div>
vba does not have property &quot;SelectedItems&quot;<br />

</div>


vba does not have property "SelectedItems"


<div>
<div class="content wysiwyg-content">
vba 2003 excel<br />
userform listbox<br />
frmliststyleoption.<br />
multiselectext<br />
<br />
I simply trying to determine if I have more than 1 item selected in listbox ?<br />
when pressing a command button<br />
<br />
<br />
Thanks<br />
fordraiders<br />

<pre><code id="code-8218687">Dim Msg As String, h As Integer
    Msg = &quot;&quot;
    With Me.ListBox1
        For h = 0 To .ListCount - 1
            If h &gt; 1 Then
              MsgBox &quot;Multiple Items Selected&quot;, vbCritical, &quot;Item Selection&quot;
               Exit Sub
            End If
        Next h
    End With</code></pre>
</div>
</div>


vba 2003 excel
userform listbox
frmliststyleoption.
multiselectext

I simply trying to determine if I have more than 1 item selected in listbox ?
when pressing a command button


Thanks
fordraiders

Determine if more than one item selected in listbox

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.