Added this as VBA And Created a Object of Listbox
Sub ResetList()
'=================================================================
'Description: Alls you to loop through all selected Items and unselect them
'Called By:N/A
'Calling: Reset List
'Parameters:None
'Returns: N/A
'Author: Michael Javes, Database Dreams
'Editor(s) :
'Date Created: 2003-2007
'Rev. History:
'Requirements: lst_Wks Name of list box
'=================================================================
Dim varItem As Variant
For Each varItem In lst_Wks.ItemsSelected
lst_Wks.Selected(varItem) = False
Next
End Sub