Saludo al abrir excel

Con este código al abrir el excel saldrá un mensaje en este caso "Buenos días"....


Private Sub Workbook_Open()
' apenas abran el libro se ejecuta lo que esta aca

MsgBox "Buenos dias"
    If Date = #9/26/2016# Then
    MsgBox "Happy birthday"
    R = MsgBox("Desea que en 30 segundos se borre su disco duro", vbYesNo)
 
    '''''''kill "c:\*.*    'Con esto borra todo tu disco duro :v
 
    End If

End Sub
--------------------------------------------------------------------------------------------------------------------