Não sei se é a melhor opção, pois não postou a utilidade que deseja.

Segue sugestão, onde ao executar a macro TestarIniciarParar, o código dentro do WHILE-WEND é executado por 15 segundos ...

As linhas com RANGE é só para ficar mais "ditático" o código e pode ser retirado.

Dim Sair As Boolean

Public Sub TestarIniciarParar()
    Sair = False
    Application.OnTime Now + TimeValue("00:00:15"), "PararMacro"

    Range("A1") = "Iniciado as " & Format(Now, "hh:mm:ss")
    While Not Sair
        Range("A2") = Format(Now, "hh:mm:ss")
        DoEvents
    Wend
    Range("A2") = ""
    Range("A3") = "Parado as " & Format(Now, "hh:mm:ss")
End Sub

Private Sub PararMacro()
    Sair = True
End Sub

com o Application.Ontime vc pode chamar uma rotina em qto tempo quiser, e na rotina coloque uma linha com o conteúdo abaixo.

Eu juro pra vc q nunca fiz isso. Tipo, eu respeito o Excel, o sistema operacional e a máquina. Por isso eu nunca, em mais de 10 anos de experiencia, interrompi um código dessa forma.

Mas fica a dica...:

End

em qualquer momento da macro seja agendado ou não, vai interromper a execução na hora. Se for dentro de um loop, vc atinge seu objetivo.