Thank you for your help Tha worked.
I have one other issue howerever.I have several multiselect listboxes boxes and I want the user to be able to select from these listboxes and have the results inputted into a single cell. However with the code i have it will only allow the reults from one listbox to be displayed. Is ther a way for this to be done. here's my code
Private Sub ListBox1_LostFocus()
Dim listItems As String, i As Long
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then listItems = listItems & .List(i) & ""
Next i
End With
If Len(listItems) > 0 Then
Sheets("English IEP").Range("C7") = Left(listItems, Len(listItems) - 1)
Else
Sheets("English IEP").Range("C7") = ""
End If
End Sub
Private Sub ListBox10_LostFocus()
Dim listItems As String, i As Long
With ListBox10
For i = 0 To .ListCount - 1
If .Selected(i) Then listItems = listItems & .List(i) & ""
Next i
End With
If Len(listItems) > 0 Then
Sheets("English IEP").Range("C7") = Left(listItems, Len(listItems) - 1)
Else
Sheets("English IEP").Range("C7") = ""
End If
End Sub
Private Sub ListBox11_LostFocus()
Dim listItems As String, i As Long
With ListBox11
For i = 0 To .ListCount - 1
If .Selected(i) Then listItems = listItems & .List(i) & ""
Next i
End With
If Len(listItems) > 0 Then
Sheets("English IEP").Range("C7") = Left(listItems, Len(listItems) - 1)
Else
Sheets("English IEP").Range("C7") = ""
End If
End Sub
Thank you
Bookmarks