Prezados, Bom dia!

Tenho este código VB abaixo, onde tentei deixar minha planilha salvando automaticamente de 5 em 5min.
Me Ajudem.

O que estou errando?

Option Explicit
Dim Arquivo As Workbook
Private Sub Workbook_Open()
Set Arquivo = ActiveWorkbook
Application.OnTime Now + TimeValue("00:05:00"), "salvar"
End Sub
Function salvar()
Arquivo.Save
Application.OnTime Now + TimeValue("00:05:00"), "salvar"
End Function

Obrigado.