Listbox / Combobox No Selection

[TonySondergeld]

If you have a list box on a user form and the user doesn't make a selection it will display message with VbYesNO. if the user then click VbYes then the macro stop and allows the users to make a section/s without closing the user form or if VbNo then Exit the sub This is run with a command button click.

 

[Domenic]

It looks like your listbox allows more than one selection. If so, maybe something like this might suffice...

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] CommandButton1_Click()
    [COLOR=darkblue]Dim[/COLOR] i [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
    [COLOR=darkblue]Dim[/COLOR] bSelected [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Boolean[/COLOR]
    [COLOR=darkblue]With[/COLOR] Me.ListBox1
        [COLOR=darkblue]For[/COLOR] i = 0 [COLOR=darkblue]To[/COLOR] .ListCount - 1
            [COLOR=darkblue]If[/COLOR] .Selected(i) [COLOR=darkblue]Then[/COLOR]
                bSelected = [COLOR=darkblue]True[/COLOR]
                [COLOR=darkblue]Exit[/COLOR] [COLOR=darkblue]For[/COLOR]
            [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
        [COLOR=darkblue]Next[/COLOR] i
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    [COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] bSelected [COLOR=darkblue]Then[/COLOR]
        MsgBox "Please make one or more selections, and try again.", vbExclamation
        [COLOR=darkblue]Exit[/COLOR] [COLOR=darkblue]Sub[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If
    [/COLOR][COLOR=#008000]'etc
    '
    '
    '[/COLOR][COLOR=darkblue][/COLOR]
End [COLOR=darkblue]Sub[/COLOR]

Hope this helps!