tarih gelince otomatik sayfa silme

[yldrm_06]

slm sevgili üstadlarım tarih gelınce otomatık excel sayfa sılmeyle yarayan bir makro buldum ve bunu sayfa gizleme kodu ile birleştirmek istiyorum open () kodlarını nasıl bırlestırebılırım tskler..

1) SAYFA SIL KODU

Private Sub Workbook_Open()
On Error Resume Next
If Date = DateSerial(2010, 06, 15) Then
Application.DisplayAlerts = False
Sheets("HAZIRLAMA").Delete
Application.DisplayAlerts = True
End If
Dosyaadi = ActiveWorkbook.Name
Workbooks(Dosyaadi).Close SaveChanges:=False
End Sub



2)SAYFA GİZLE

Private Sub Workbook_Open()
For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "AnaSayfa" Then
For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
Next
End If
End Sub