Error de automation al eliminar hoja

Estoy trabajando en un pequeño sub para eliminar hojas específicas, de acuerdo con una pantalla de formulario para el usuario. El usuario elige qué hoja quiere save en un listbox. El código recorre todas las hojas del listbox y elimina las hojas que no están seleccionadas. Pero, al ejecutar el formulario y hacer clic en el button, recibí un error de automation:

Error de ejecución '-2147417848 (80010108): el object de error de automation invocado se ha desconectado

Private Sub Button_Export_Click() Application.DisplayAlerts = False For i = 0 To PSV_Case_List.listCount - 1 If Not PSV_Case_List.Selected(i) Then Worksheets(PSV_Case_List.List(i)).Delete End If Next i Application.DisplayAlerts = True End Sub 

Siguiendo este post, Excel se congela y tengo que matar el process.

Alguna idea ?

Gracias !

Cuando elimine de esta manera, siempre debe comenzar con el índice más alto y bajar, porque tan pronto como se elimina la hoja (0), la hoja (1) se convierte en hoja (0) y así sucesivamente. Entonces intente esto:

 For i = PSV_Case_List.listCount - 1 to 0 step -1