Clearing of listbox causing excel to crash

Hello I have a code for clear normal Listbox in Excel(not active X, and not in userform). It worked on excel 2013, but I have moved to win 10 and using Office 365 64 bit now and for some reason when Vba tries to execute lbx.RemoveAllItems on non-empty listbox which has extended selections the excel crashes(but it works in single selection mode)
original code:

Please Login or Register  to view this content.

what I also tried( and figured out that it always crashes when tries to remove last item in Lisbox and I know the index of last item is 1): I'll get "Run-Time error '1004':RemoveItem method of ListBox class failed" and then excel crashes again

Please Login or Register  to view this content.

Can anyone help plz?

Maybe you need the index rather than 1

Please Login or Register  to view this content.

How are you populating the listboxes?

Originally Posted by xladept

Maybe you need the index rather than 1

Please Login or Register  to view this content.

I have tried but after playing with it I figured out that last item always has index 1....it looks like when you delete item 1 the rest will move backwards so 3-->2 and 2-->1(so technically it seems you just need to delete index 1 multiple times if you don't use RemoveAllItems) ... however I finally found a way around it...I just set listboxes as single selection before removeAlllItems and then after I repopulate them I am able to set them as extended selection so people can choose multiple... this way it works...however don't understand why it crashes when I try to removeAllItems with extended selection when it worked on previous versions...hell even on colleague's Office 365 but win 7(so 32 bit) it works normally (it looks like it doesn't want me to have multiple or extended selection if listbox is empty...single selection is ok)

Sorry - that's all that occurred to me.