Ocultar Hojas

Apreciada Elsa, vuelvo a necesitar tu ayuda. Tengo el siguiente código que oculta determinadas hojas de un libro a partir de una fecha, el problema que una vez se ejecuta y se guarda el libro cuando se vuelve abrir da error ya que no encuentra las hojas, ¿cómo se puede solucionar? Gracias.
Private Sub Workbook_Open()
Dim mifecha As Date
mifecha = Format(Now(), "dd/mm/yy")
If mifecha >= 1 / 4 / 6 Then
Application.DisplayAlerts = False
Sheets(Array("Hoja2", "Hoja3")).Select
'Sheets("Hoja2").Activate
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
End If
End Sub