Not sure how to ask this, but will do my best. I have the code below, which
places the contents of ListBox1 into the active cell (I use this to fill in
and edit an annual vacation calendar for a department of about 60 people).
Each day there can be up to 5 people off, so each day is made up of 5 rows.
When entering or removing names (and this is do through out the year) I
click on the first empty cell (or the cell containing the name I want to
delete), What I need is some code that will some how select all 5 rows and
sort the names.




Private Sub OK_Click()

Application.ScreenUpdating = False
On Error GoTo EndMacro
Selection = ListBox1.Value
EndMacro:
Me.Hide
Unload EmployeeList
ListBox1.ListIndex = -1
Application.ScreenUpdating = True

End Sub