Application. Ontime error objeto

Sub Timer()

' Ejecuta el procedimiento button1_click cada 10 segundos
Application.OnTime(Now + TimeValue("00:00:10"), "Button1_Click")
End Sub

me sale error la referencia a un miembro no compartido requiere una referencia

de antemano gracias