Place this macro in the sheet module of the sheet you are using. I assumed
the Data Validation cell is C1 and the list is in Column A starting with A1.
The list must be named "TheList". If your list is located in some other
sheet, preface the line that starts with Range("TheList").Find with
Sheets("SheetName"). like this:
Sheets("SheetName").Range("TheList").Find..... HTH Otto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Not Intersect(Target, Range("C1")) Is Nothing Then
Range("TheList").Find(What:=Target.Value, LookAt:=xlWhole). _
Delete Shift:=xlUp
Range("A1", Range("A" & Rows.Count).End(xlUp)).Name = "TheList"
End If
End Sub
"bbennett2" wrote in message
...
I have a drop down menu with a list of 100 items. I have it set up that
at
the end of each day. a coworker can go into the spreadsheet and pull from
the
drop down menu and select if they have used any of the 100 items. Is
there
any way to make it so that once a particular item has been selected from
the
drop down menu, that it no longer shows up as an option?