Hi,
how can I remove the item "PMname" from the listbox in following code?
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