Eliminar hoja y registro excel vba 2010

hola buen dia a todos.

por aca de nuevo solicitándoles su grandiosa ayuda.

Quisiera implementar un código para eliminar una hoja cuyo nombre ingreso a través de un combobox y a su vez que me elimine el nombre de dicha hoja el cual tengo en un listado en la hoja clientes..

Buscando un poco en la red he Hecho algo parecido pero me saca un error "subíndice fuera de intervalo.

Por favor si alguien pudiera mejorarlo o quitarle ese error se los agradecería inmensamente..

Aca les dejo el código:

Private Sub CommandButton1_Click()

' Eliminar Hoja y registro de la hoja clientes
Dim c As Object
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
If ComboBox1 = Sheets(i).Name Then
Set c = Sheets("Clientes").range("C8: C1048576").Find(Sheets(i).Name, LookIn:=xlValues, Lookat:=xlWhole)
If Not c Is Nothing Then
diré = c.Address
range(diré).Activate
Sheets("Clientes").range(diré).EntireRow.Delete
Sheets("Panel").Select
'ComboBox1 = Empty
'ComboBox1.SetFocus
End If
If c Is Nothing Then
MsgBox ("El dato no existe"), vbCritical, "AVISO"
End If
ActiveSheet.Unprotect
Sheets(i).Visible = True
Sheets(i).Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("Panel").Select
Application.ScreenUpdating = True
End If
Next
Unload Me
Exit Sub
On Error GoTo resumenerror:
If ComboBox1 <> Sheets(i).Name Then
Exit Sub
resumenerror:
MsgBox "La hoja no existe"
ComboBox1.SetFocus
End If
Application.ScreenUpdating = True
End Sub

gracias por su pronta ayuda...

Que Dios los bendiga..