hello all,
i've simple form to delete sheets and i have the following code:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(UserForm1.ComboBox1.Value).Delete
UserForm1.Hide
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

when i click commandbutton1
the following error appear and excel is cranshing
Run-time error €˜-2147417848(80010108):
Automation error
The object invoked has disconnected from its clients.

i use excel2007 but i run this macro with file ( xls) not (xlsx) or (xlsm).
thanks in advance
atef