Eliminar hojas de calculo en función de la fecha

Tengo una hoja que se compone de 4 hojas llamadas banco1, banco2, caja1 y poliza1, la hoja modifica todas las semanas, y dentro de la misma hoja se crean nuevas hojas con los nombre Banco3, Banco4, caja2, poliza2 lo que necesitaría es que al guardar la nueva hoja nueva borre hojas antiguas lo he intentado mediante el siguiente código

Private Sub Workbook_Open()
Dim i As Long
FECHA = Date
FECHA2 = Range("b1").Value
If FECHA = FECHA2 Then
For i = 2 To 4
Application.DisplayAlerts = False
Sheets("Hoja" & i).Delete
Application.DisplayAlerts = True
Next
Cells.Select
Selection.ClearContents
Else
End If
End Sub 

El problema es que las hojas tienen nombre y me da error 9 en tiempo de ejecución