Cannot delete a worksheet when a change event for a userform combobox detects rename sheet

In the attached workbook, there is a modeless userform which has a combox with a rowsource pointing to the first worksheet "Sheet1!$B$1:$B$2".

I have added a change procedure (event) to the combox, so that if a combox value changes, this will be triggered and the second worksheet will be deleted.

What is good about this event, is that when you rename/delete any worksheet inside the workbook this event will be triggered. However, in this case, I am getting the following errors when it wants to delete the second worksheet:

Run-time error '1004':
Delete method of Worksheet class failed

When I press End button on the error message, the following error is thrown:
---------------------------
Microsoft Visual C++ Runtime Library
---------------------------
Runtime Error!

Program: C:\Program Files\Microsoft Office\Office14\EXCEL.EXE

R6025

- pure virtual function call

Any help to resolve this issue is appreciated. The code is also given below:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

could not replicate your problem
did not add any sheets, tried four times, all it did was delete the second sheet each time.

Thank you so much for your reply.
Did you also try creating a new worksheet and renaming it?
In my case, it only works fine if I select items from the combobox. I am getting this error on Excel 2010. I will try on other Excel versions and update the post.