Função OnTime

[Zow]

Olá pessoal,

Estou tentando usar essa macro que copia os dados de uma célula a cada 15 segundos, no entanto após os 15 segundos aparece o seguinte erro:

Não foi possível encontrar a macro "Pasta1!QuinzeMin".

O que estou fazendo de errado?

Public Sub QuinzeMin()

Dim hora As String

With ThisWorkbook
  hora = .Worksheets("Plan1").Range("a1").Value
  With .Worksheets("Plan1")
     .Range("A1:b1").Copy
     .Range("A3").PasteSpecial Paste:=xlPasteValues
     .Range("A3").EntireRow.Insert
  End With
End With

NextEvent = Now + TimeValue("00:00:15")
Application.OnTime NextEvent, "QuinzeMin"

End Sub