Excel - Cuelgue de EXCEL 2007

Esta macro elimina una hoja de cáculo consistente en un Gráfico. Elimina la hoja y luego se cuelga Excel. (No siempre).
¿Sabe alguien cual o cuales de las instrucciones no es/son válida/s?

On Error GoTo error
For X = 1 To 200
Sheets("Hoja1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Hoja1").Select
error:
If Err.Number > 0 Then
Sheets("Gráficos").Select

GoTo fin
Else
MsgBox "Para salir deberá eliminar", vbOKOnly, "Gastos familiares"
End If
Next
fin:
Sheets("Gráficos").Select
Application.ScreenUpdating = False
ActiveSheet.Unprotect

Range("a1").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Pues, con la mayor sinceridad del mundo te digo que realmente es urgente que empiezes a leer sobre VBA, ya que tu codigo es incongruente e ilogico en varias de sus lineas :(

Abraham