VBA Create Message of List Box item not selected

[scotball]

I have a form with a list box and the following code which populates the list

With GroupListBox    .AddItem "HMP Low Moss"
    .AddItem "HMP Barlinnie"
    .AddItem "HMP Greenock"
    .AddItem "HMP Edinburgh"

This only populates the items, it doesn't select an item. I need a piece of code which prompts the user to make a selection before the form is submitted.

I have this code so far but it doesn't work:

If GroupListBox.Value = False ThenMsgBox "Please add in Location", vbExclamation
  Exit Sub
End If

Any advice welcomed,
Lee

 

[Fluff]

Is your listbox single or multi select?

 

[scotball]

Is your listbox single or multi select?

Single (I think, I inherited it but looks like single)

 

[Fluff]

In that case try

If GroupListBox.Value = "" Then
   MsgBox "Please add in Location", vbExclamation
   Exit Sub
End If

 

[scotball]

Private Sub OkButton_Click()       
Dim emptyRow As Long
emptyRow = Range("A" & Rows.Count).End(xlUp).Row + 1


If NameTextBox.Value = "" Then
MsgBox "Please add in Name", vbExclamation
  Exit Sub
End If


If GroupListBox.Value = "" Then
   MsgBox "Please add in Location", vbExclamation
   Exit Sub
End If


If SessionsBox.Value = "" Then
MsgBox "Please add in Session Date", vbExclamation
  Exit Sub
End If


If DOBTextBox.Value = "" Then
MsgBox "Please add in DOB", vbExclamation
  Exit Sub
End If


If CommentsTextBox.Value = "" Then
MsgBox "Please add in Comments", vbExclamation
  Exit Sub
End If

That didnt work - the above code is where I've placed it in the Sub

 

[Norie]

If you want to check if something has been selected in a single select listbox check the ListIndex property, if it's -1 nothing has been selected.

If GroupListBox.ListIndex = -1 Then
   MsgBox "Please add in Location", vbExclamation
   Exit Sub
End If

 

[scotball]

Thanks that worked a treat Norie.