I attached a sample a few posts ago.
SNB replied on that and got it working for the listbox on the userform , but not for the Listbox on the worksheet. [I suppose he can make it work, but didn't because I asked it to work for the Userform]

Perhaps you can take a look [see attachment of the last reply of snb]