Macro para borrar archivo excel

Tengo esta macro, que me borra un archivo cada vez que se cumple una fecha, ... Me funcionaba muy bien con el excel 2007, pero ahora monté excel 2016 en mi computadora y me ha dejado de funcionar, por favor si alguien me puede decir que paso o me puede mejorar la macro para que vuelva a funcionar lo agradezco... Gracias de antemano

Private Sub Workbook_Open()
ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")
Dim wb As Workbook
fecha = "05/08/2016" 'fecha de eliminacion del libro
Set wb = ThisWorkbook
If fecha <= Date Then
MsgBox "ESTA VERSION HA EXPIRADO ", vbExclamation
With wb
.Saved = True 'se estable como salvado
.ChangeFileAccess xlReadOnly 'se pone el acceso al libro como de solo lectura
Kill .FullName 'se elimina el libro
.Close 'se cierra el libro
End With
End If
End Sub