Sory earlier my question was not very clear.i write again.I have following
code."ROSTER" is the sheet name,paizapm is the range name,all I want display
input box to look for the search weather in the listbox or not,if in the
listbox I want to remove.But I tried so hard could not fix the remove item
from the listbox.Any helpful souls?Thanks in advance
Dim farx As Range
UserForm1.ListBox1.RowSource = "Roster!paizapm"
Dim Title, Default
Dim PMname As Variant
Title = "Please enter the value you want to find?"
PMname = InputBox(Title, Default, 100, 100)
Set farx = Cells.Find(What:=PMname)
If farx Is Nothing Then
MsgBox "There is no item called as " & PMname
Else
'*****HERE HOW CAN I REMOVE THE ""PMname""*****
End If

--
Regards,
Baha