Thanks Jim,
I have a data validation list that uses the code attached below which lists the time slots in ascending order, which naturally starts with 0000-0806 (midnight to 6 minutes past 8 in the morning). I have created the list so that it deleted blank cells and also if a time that is entered into a worksheet is not in the list it gets added
I would like the lsit to start at 0800-1606 not 0000-0806.
If Application.WorksheetFunction.CountIf(ws.Range("PickList"), Cells(iRow, iCol).Value) Then
Exit Sub
Else
i = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws.Range("A" & i).Value = Cells(iRow, iCol).Value
'then sort the validation list
ws.Range("PickList").Sort Key1:=ws.Range("A1"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If